Changeset 231873 in webkit
- Timestamp:
- May 16, 2018 2:46:36 PM (6 years ago)
- Location:
- trunk/Tools
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Tools/ChangeLog
r231867 r231873 1 2018-05-16 Leo Balter <leonardo.balter@gmail.com> 2 3 Test262-Runner: Set timer for each test run 4 https://bugs.webkit.org/show_bug.cgi?id=185692 5 6 Reviewed by Michael Saboff. 7 8 Sets a high resolution timer for each execution call of JSC, reporting 9 the time in the results report to allow identifying slow tests. 10 * Scripts/test262/Runner.pm: 11 (main): 12 (processFile): 13 (runTest): 14 (processResult): 15 1 16 2018-05-16 Andy VanWagoner <andy@vanwagoner.family> 2 17 -
trunk/Tools/Scripts/test262/Runner.pm
r231848 r231873 42 42 use Env qw(DYLD_FRAMEWORK_PATH); 43 43 use Config; 44 use Time::HiRes qw(time); 44 45 45 46 my $podIsAvailable; … … 398 399 print $skipfilecount . " test files skipped\n"; 399 400 400 my $endTime = time(); 401 my $totalTime = $endTime - $startTime; 402 print "Done in $totalTime seconds!\n"; 401 printf("Done in %.2f seconds!\n", time() - $startTime); 403 402 404 403 my $totalfailures = $expect ? $newfailcount : $failcount; … … 513 512 514 513 foreach my $scenario (@scenarios) { 515 my $result= runTest($includesfile, $filename, $scenario, $data);516 517 $resultsdata = processResult($filename, $data, $scenario, $result );514 my ($result, $execTime) = runTest($includesfile, $filename, $scenario, $data); 515 516 $resultsdata = processResult($filename, $data, $scenario, $result, $execTime); 518 517 DumpFile($resultsfh, $resultsdata); 519 518 } … … 624 623 625 624 my $prefix = qq(DYLD_FRAMEWORK_PATH=$DYLD_FRAMEWORK_PATH); 625 626 my $execTimeStart = time(); 626 627 my $result = qx($prefix $JSC $args $defaultHarness $includesfile '$prefixFile$filename'); 628 my $execTime = time() - $execTimeStart; 627 629 628 630 chomp $result; 629 631 630 return $result if ($?); 632 if ($?) { 633 return ($result, $execTime); 634 } else { 635 return (0, $execTime); 636 } 631 637 } 632 638 633 639 sub processResult { 634 my ($path, $data, $scenario, $result ) = @_;640 my ($path, $data, $scenario, $result, $execTime) = @_; 635 641 636 642 # Report a relative path … … 639 645 $resultdata{path} = $file; 640 646 $resultdata{mode} = $scenario; 647 $resultdata{time} = $execTime; 641 648 642 649 my $currentfailure = parseError($result) if $result;
Note: See TracChangeset
for help on using the changeset viewer.