diff -r 000000000000 -r 6474c204b198 netwerk/test/neckoTiming.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/netwerk/test/neckoTiming.pl Wed Dec 31 06:09:35 2014 +0100 @@ -0,0 +1,124 @@ +#neckoTiming.pl +# +# This file drives the Neck Page Load Timer. +# Written by John A. Taylor in 2001 + +use Strict; + +my @pageList; +my @fileList; +my @timeList; +my @minTimes; +my @maxTimes; +my @avgTimes; +my $file_name; # = "PageList_all_pages.txt"; +my $output_file = "timing_output.html"; +my $test_loc; # = " c:/builds/src/mozilla/dist/WIN32_O.OBJ/bin/TestPageLoad"; +my $test_com; +my $num_tests=1; +my $num_pages=0; + +if($#ARGV != 2){ + usage(@ARGV); +} + +$num_tests = $ARGV[0]; +$file_name = $ARGV[1]; +$test_loc = $ARGV[2]; + +push (@pageList, GetTestList($file_name)); + +my $i, $j, this; +for($i = 0; $i < $num_tests; $i++) { + $j=0; + foreach $page (@pageList) { + my $start, $finish, $total; + $test_com = $test_loc . " " . $page . " | "; + printf "Testing (%d/%d): $page\n",$i*$num_pages+$j+1, $num_tests * $num_pages; + # $start = (times)[0]; + open (TEST, $test_com) + || die ("Could not find test program: $test_loc"); + while() { + if(/>>PageLoadTime>>(\d*)>>/){ + print "$1\n"; + $this = $1/1000; + $timeList[$j][$i] = $this; + @avgTimes[$j] += $this; + if($this > @maxTimes[$j] || $i == 0) { + @maxTimes[$j] = $this; + } + if($this < @minTimes[$j] || $i == 0) { + @minTimes[$j] = $this; + } + } + } + $j++; + } +} + +for($i = 0; $i < $j; $i++) { + @avgTimes[$i] /= $num_tests; +} + +PrintReport(); +print "\nHTML formated report is in: timing_output.html\nin this directory\n"; +exit; + +my $num_cols = $num_tests + 4; +sub PrintReport { + my $j=0; + open (OUT, ">$output_file"); + print OUT "

Necko Timing Test Results

", + "Number of iterations: $num_tests", + "", + ""; + + foreach $page(@pageList) { + #$loc=$page; + #$max_time = @maxTimes[$j]; + #$min_time = @minTimes[$j]; + #$avg_time = @avgTimes[$j]; + #$time_1 = $timeList[$j][0]; + #write; + printf OUT "", @avgTimes[$j]; + #print "\n$page\t\t@avgTimes[$j]\t@maxTimes[$j]\t@minTimes[$j]\t"; + my $i; + for($i=0; $i < $num_tests; $i++){ + print OUT ""; + } + print OUT ""; + $j++; + } + print OUT "

Page Location	Avg Time	Max Time	Min Time	Times ...
$page	%d	@maxTimes[$j]	@minTimes[$j]	$timeList[$j][$i]

Report Done

"; +} + +sub GetTestList { + my ($list_file) = @_; + my @retval = (); + + open (TESTLIST, $list_file) || + die("Could not find test list file: '$list_file': $!\n"); + + while () { + s/\n$//; + if (!(/\s*\#/)) { + # It's not a comment, so process it + push (@retval, $_); + $num_pages++; + } + } + + close (TESTLIST); + return @retval; +} + +sub usage { + print STDERR + ("\nusage: $0 NUM FILE LOC \n\n" . + "NUM Number of iterations you want\n" . + "FILE Location of input file containing test pages\n" . + "LOC Path (including executable) of TestPageLoad\n" . + " (should be in same directory as mozilla bin\n". + " ex: /builds/mozilla/dist/bin/TestPageLoad )\n\n"); + exit (1); +}