reftest output

michael@0: #!/usr/bin/perl michael@0: # vim: set shiftwidth=4 tabstop=8 autoindent expandtab: michael@0: # This Source Code Form is subject to the terms of the Mozilla Public michael@0: # License, v. 2.0. If a copy of the MPL was not distributed with this michael@0: # file, You can obtain one at http://mozilla.org/MPL/2.0/. michael@0: michael@0: # This script is intended to be run over the standard output of a michael@0: # reftest run. It will extract the parts of the output run relevant to michael@0: # reftest and HTML-ize the URLs. michael@0: michael@0: use strict; michael@0: michael@0: print < michael@0: michael@0: reftest output michael@0: michael@0: michael@0:

michael@0: EOM
michael@0: ;
michael@0: 
michael@0: while (<>) {
michael@0:     next unless /REFTEST/;
michael@0:     chomp;
michael@0:     chop if /\r$/;
michael@0:     s,(TEST-)([^\|]*) \| ([^\|]*) \|(.*),\1\2: \3\4,;
michael@0:     s,(IMAGE[^:]*): (data:.*),\1,;
michael@0:     print;
michael@0:     print "\n";
michael@0: }
michael@0: 
michael@0: print <
michael@0: 
michael@0: 
michael@0: EOM
michael@0: ;