clean-reftest-output.pl (805B)
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/. 6 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. 10 11 use strict; 12 13 print <<EOM 14 <html> 15 <head> 16 <title>reftest output</title> 17 </head> 18 <body> 19 <pre> 20 EOM 21 ; 22 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 } 32 33 print <<EOM 34 </pre> 35 </body> 36 </html> 37 EOM 38 ;