The Tor Browser / file comparison
comparison: netwerk/test/neckoTiming.pl
netwerk/test/neckoTiming.pl
- changeset 0
- 6474c204b198
equal
deleted
inserted
replaced
| -1:000000000000 | 0:8dcefcf67b18 |
|---|---|
| 1 #neckoTiming.pl | |
| 2 # | |
| 3 # This file drives the Neck Page Load Timer. | |
| 4 # Written by John A. Taylor in 2001 | |
| 5 | |
| 6 use Strict; | |
| 7 | |
| 8 my @pageList; | |
| 9 my @fileList; | |
| 10 my @timeList; | |
| 11 my @minTimes; | |
| 12 my @maxTimes; | |
| 13 my @avgTimes; | |
| 14 my $file_name; # = "PageList_all_pages.txt"; | |
| 15 my $output_file = "timing_output.html"; | |
| 16 my $test_loc; # = " c:/builds/src/mozilla/dist/WIN32_O.OBJ/bin/TestPageLoad"; | |
| 17 my $test_com; | |
| 18 my $num_tests=1; | |
| 19 my $num_pages=0; | |
| 20 | |
| 21 if($#ARGV != 2){ | |
| 22 usage(@ARGV); | |
| 23 } | |
| 24 | |
| 25 $num_tests = $ARGV[0]; | |
| 26 $file_name = $ARGV[1]; | |
| 27 $test_loc = $ARGV[2]; | |
| 28 | |
| 29 push (@pageList, GetTestList($file_name)); | |
| 30 | |
| 31 my $i, $j, this; | |
| 32 for($i = 0; $i < $num_tests; $i++) { | |
| 33 $j=0; | |
| 34 foreach $page (@pageList) { | |
| 35 my $start, $finish, $total; | |
| 36 $test_com = $test_loc . " " . $page . " | "; | |
| 37 printf "Testing (%d/%d): $page\n",$i*$num_pages+$j+1, $num_tests * $num_pages; | |
| 38 # $start = (times)[0]; | |
| 39 open (TEST, $test_com) | |
| 40 || die ("Could not find test program: $test_loc"); | |
| 41 while(<TEST>) { | |
| 42 if(/>>PageLoadTime>>(\d*)>>/){ | |
| 43 print "$1\n"; | |
| 44 $this = $1/1000; | |
| 45 $timeList[$j][$i] = $this; | |
| 46 @avgTimes[$j] += $this; | |
| 47 if($this > @maxTimes[$j] || $i == 0) { | |
| 48 @maxTimes[$j] = $this; | |
| 49 } | |
| 50 if($this < @minTimes[$j] || $i == 0) { | |
| 51 @minTimes[$j] = $this; | |
| 52 } | |
| 53 } | |
| 54 } | |
| 55 $j++; | |
| 56 } | |
| 57 } | |
| 58 | |
| 59 for($i = 0; $i < $j; $i++) { | |
| 60 @avgTimes[$i] /= $num_tests; | |
| 61 } | |
| 62 | |
| 63 PrintReport(); | |
| 64 print "\nHTML formated report is in: timing_output.html\nin this directory\n"; | |
| 65 exit; | |
| 66 | |
| 67 my $num_cols = $num_tests + 4; | |
| 68 sub PrintReport { | |
| 69 my $j=0; | |
| 70 open (OUT, ">$output_file"); | |
| 71 print OUT "<HTML><BODY><H3>Necko Timing Test Results</H3>", | |
| 72 "<b>Number of iterations: $num_tests</b>", | |
| 73 "<TABLE border=1 cols=$num_cols><tr><td>Page Location</td><td>Avg Time</td>", | |
| 74 "<td>Max Time</td><td>Min Time</td><td colspan=$num_tests>Times ... </td>"; | |
| 75 | |
| 76 foreach $page(@pageList) { | |
| 77 #$loc=$page; | |
| 78 #$max_time = @maxTimes[$j]; | |
| 79 #$min_time = @minTimes[$j]; | |
| 80 #$avg_time = @avgTimes[$j]; | |
| 81 #$time_1 = $timeList[$j][0]; | |
| 82 #write; | |
| 83 printf OUT "<tr><td>$page</td><td>%d</td><td>@maxTimes[$j]</td><td>@minTimes[$j]</td>", @avgTimes[$j]; | |
| 84 #print "\n$page\t\t@avgTimes[$j]\t@maxTimes[$j]\t@minTimes[$j]\t"; | |
| 85 my $i; | |
| 86 for($i=0; $i < $num_tests; $i++){ | |
| 87 print OUT "<td>$timeList[$j][$i]</td>"; | |
| 88 } | |
| 89 print OUT "</tr>"; | |
| 90 $j++; | |
| 91 } | |
| 92 print OUT "</TABLE><H4><I>Report Done</I></H4></BODY></HTML>"; | |
| 93 } | |
| 94 | |
| 95 sub GetTestList { | |
| 96 my ($list_file) = @_; | |
| 97 my @retval = (); | |
| 98 | |
| 99 open (TESTLIST, $list_file) || | |
| 100 die("Could not find test list file: '$list_file': $!\n"); | |
| 101 | |
| 102 while (<TESTLIST>) { | |
| 103 s/\n$//; | |
| 104 if (!(/\s*\#/)) { | |
| 105 # It's not a comment, so process it | |
| 106 push (@retval, $_); | |
| 107 $num_pages++; | |
| 108 } | |
| 109 } | |
| 110 | |
| 111 close (TESTLIST); | |
| 112 return @retval; | |
| 113 } | |
| 114 | |
| 115 sub usage { | |
| 116 print STDERR | |
| 117 ("\nusage: $0 NUM FILE LOC \n\n" . | |
| 118 "NUM Number of iterations you want\n" . | |
| 119 "FILE Location of input file containing test pages\n" . | |
| 120 "LOC Path (including executable) of TestPageLoad\n" . | |
| 121 " (should be in same directory as mozilla bin\n". | |
| 122 " ex: /builds/mozilla/dist/bin/TestPageLoad )\n\n"); | |
| 123 exit (1); | |
| 124 } |
