Wed, 31 Dec 2014 13:27:57 +0100
Ignore runtime configuration files generated during quality assurance.
1 #!/usr/bin/perl
2 # vim: set shiftwidth=4 tabstop=8 autoindent expandtab:
3 # This Source Code Form is subject to the terms of the Mozilla Public
4 # License, v. 2.0. If a copy of the MPL was not distributed with this
5 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
7 # This script is intended to be run over the standard output of a
8 # reftest run. It will extract the parts of the output run relevant to
9 # reftest and HTML-ize the URLs.
11 use strict;
13 print <<EOM
14 <html>
15 <head>
16 <title>reftest output</title>
17 </head>
18 <body>
19 <pre>
20 EOM
21 ;
23 while (<>) {
24 next unless /REFTEST/;
25 chomp;
26 chop if /\r$/;
27 s,(TEST-)([^\|]*) \| ([^\|]*) \|(.*),\1\2: <a href="\3">\3</a>\4,;
28 s,(IMAGE[^:]*): (data:.*),<a href="\2">\1</a>,;
29 print;
30 print "\n";
31 }
33 print <<EOM
34 </pre>
35 </body>
36 </html>
37 EOM
38 ;