projects / working / random.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 189e03f)
within the HTML output, link to first error
authorJason Etheridge <jason@esilibrary.com>
Thu, 8 Aug 2013 18:08:57 +0000 (14:08 -0400)
committerJason Etheridge <jason@esilibrary.com>
Thu, 8 Aug 2013 18:08:57 +0000 (14:08 -0400)
Signed-off-by: Jason Etheridge <jason@esilibrary.com>
qa/test_output_filter.pl patch | blob | history

diff --git a/qa/test_output_filter.pl b/qa/test_output_filter.pl
index c747767..cbe479c 100755 (executable)
--- a/qa/test_output_filter.pl
+++ b/qa/test_output_filter.pl
@@ -1,11 +1,12 @@
 #!/usr/bin/perl
 
 my $state = 'skipping';
+my $error_count = 0;
 
 if ($0 =~ /html/) {
     print "<html><head><title>test output</title>";
     print "<link rel='stylesheet' type='text/css' href='test_output.css'>";
-    print "</head><body><pre>\n";
+    print "</head><body><a href='#error'>Jump to first error</a><pre>\n";
 }
 
 while (my $line = <>) {
@@ -26,10 +27,14 @@ while (my $line = <>) {
                 || $line =~ /\. not ok/
             ) {
                 $class .= 'notok ';
+                $error_count++;
             }
             $class .= 'result ' if ($line =~ /^Result:/); 
             $class .= 'pass ' if ($line =~ /^Result: PASS/); 
-            $class .= 'fail ' if ($line =~ /^Result: FAIL/); 
+            if ($line =~ /^Result: FAIL/) {
+                $class .= 'fail ';
+                $error_count++;
+            }
             if ($line =~ /^#/
                 || $line =~ /Checks:/
                 || $line =~ /_\.-~=/
@@ -42,7 +47,12 @@ while (my $line = <>) {
                 $class .= 'comment ';
             }
             chomp $line;
-            print "<span class='$class'>$line</span>\n";
+            my $html_line = "<span class='$class'>$line</span>";
+            if ($error_count == 1) {
+                print "<a name='error'>$html_line</a>\n";
+            } else {
+                print "$html_line\n";
+            }
         } else {
             print $line;
         }
Random Contribs