<%args>
$report
%failures => {}
<%method meta_row>
<%args>
$name
$value
% if ($value) {
| <% $name %>: |
% if ($name =~ /url$/) {
% my @urls = split(qr/\s+/, $value);
% foreach my $url (@urls) {
<% $url %>
% }
% } else {
<% $value %>
% }
|
% }
% # this enumeration is a bit lame. anyway: copy the list from Tapper::TAP::Harness.@SECTION_HEADER_KEYS_GENERAL.
% my @meta_cols = qw/ram cpuinfo bios lspci uname osname uptime language-description
% flags kernel changeset description
% xen-version xen-changeset xen-dom0-kernel xen-base-os-description
% xen-guest-description xen-guest-test xen-guest-start xen-guest-flags
% kvm-module-version kvm-userspace-version kvm-kernel
% kvm-base-os-description kvm-guest-description
% kvm-guest-test kvm-guest-start kvm-guest-flags
% simnow-version
% simnow-svn-version
% simnow-device-interface-version
% simnow-svn-repository
% simnow-bsd-file
% simnow-image-file
% ticket-url wiki-url planning-id moreinfo-url codereview-url
% tags
% /;
%
% my $reportgrouptestrun = $report->reportgrouptestrun;
% my @reportlist = ($report);
% if ($reportgrouptestrun) {
% @reportlist = $reportgrouptestrun->groupreports->all;
% }
% if (keys %failures) {
Issue Summary
% foreach my $key (sort keys %failures) {
% my $report_name = $failures{$key}{name};
% my $machine_name = $failures{$key}{machine_name};
% my $report_description = $failures{$key}{report_description};
% if (my @report_failures = @{$failures{$key}{failures} || []}) {
|
% if ($key eq $report->id) {
% }
<% $key %>
% if ($key eq $report->id) {
% }
|
<% $report_name %> @ <% $machine_name %> @ <% $report_description %> |
% foreach my $failure (@report_failures) {
|
|
not ok <% $failure->{number} %> <% $failure->{description} %> |
% } # foreach failure
% } # if @eport_failures
% } # foreach keys failures
% } # if keys failures
% # --------------------------------------------------------
% # Prepare Test Execution Context - avoid duplicate entries
% # --------------------------------------------------------
% my %already_seen = ();
% my @contexts = ();
% foreach my $r ( @reportlist) {
% my $sections = $r->reportsections;
% if ($r->some_meta_available) {
% my $context;
% $context->{suite_name} = $r->suite ? $r->suite->name : 'unknown suite';
% $context->{id} = $r->id;
% my @context_sections = ();
% while (my $section = $sections->next) {
% if ($section->some_meta_available) {
% my $context_section;
% $context_section->{name} = $section->name;
% $context_section->{machine_name} = $r->machine_name;
% my %cols = $section->get_columns;
% my $signature = join("~", map { "$_".":".($cols{$_}||"") } map { s/-/_/g; $_ } sort @meta_cols);
% if (not $already_seen{$r->suite->name}{$section->name}{$signature}) {
% $already_seen{$r->suite->name}{$section->name}{$signature} = 1;
% my @meta_lines = ();
% foreach (sort map { s/-/_/g; $_ } @meta_cols) {
% push @meta_lines, { name => $_, value => $cols{$_} } if defined $cols{$_};
% }
% $context_section->{meta_lines} = \@meta_lines;
% }
% push @context_sections, $context_section if @{$context_section->{meta_lines} || []};
% } # if $section->some_meta_available
% } # while $sections->next
% $context->{context_sections} = \@context_sections if @context_sections;
% push @contexts, $context if @{$context->{context_sections} || []};
% } # if $r->some_meta_available
% }
% # ---------------------------------------------
% # Actually print Prepare Test Execution Context
% # ---------------------------------------------
% if (@contexts) {
Test Execution Context
% foreach my $context (@contexts) {
% }
% }
%# Local Variables:
%# buffer-file-coding-system: utf-8
%# End: