run-api-tests: dumpAllTests() should not use global variables
authorddkilzer@apple.com <ddkilzer@apple.com@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Thu, 22 Dec 2011 16:32:03 +0000 (16:32 +0000)
committerddkilzer@apple.com <ddkilzer@apple.com@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Thu, 22 Dec 2011 16:32:03 +0000 (16:32 +0000)
Reviewed by Adam Roben.

Part of: <http://webkit.org/b/75065> run-api-tests should be able to run individual suites and tests

* Scripts/run-api-tests: Renamed $dump to $dumpTests.
(dumpTestsBySuite): Rename from dumpAllTests() and pass in
global data as an argument.  Sort suite names and test names
alphabetically to match output when running tests.

git-svn-id: https://svn.webkit.org/repository/webkit/trunk@103545 268f45cc-cd09-0410-ab3c-d52691b4dbfc

Tools/ChangeLog
Tools/Scripts/run-api-tests

index 2521294..3f37ca6 100644 (file)
@@ -1,3 +1,16 @@
+2011-12-22  David Kilzer  <ddkilzer@apple.com>
+
+        run-api-tests: dumpAllTests() should not use global variables
+
+        Reviewed by Adam Roben.
+
+        Part of: <http://webkit.org/b/75065> run-api-tests should be able to run individual suites and tests
+
+        * Scripts/run-api-tests: Renamed $dump to $dumpTests.
+        (dumpTestsBySuite): Rename from dumpAllTests() and pass in
+        global data as an argument.  Sort suite names and test names
+        alphabetically to match output when running tests.
+
 2011-12-22  Leo Yang  <leo.yang@torchmobile.com.cn>
 
         [BlackBerry] Enable blob for the BlackBerry porting
 2011-12-22  Leo Yang  <leo.yang@torchmobile.com.cn>
 
         [BlackBerry] Enable blob for the BlackBerry porting
index 8add834..cfc4e6a 100755 (executable)
@@ -39,7 +39,7 @@ use webkitdirs;
 use VCSUtils;
 
 sub buildTestTool();
 use VCSUtils;
 
 sub buildTestTool();
-sub dumpAllTests();
+sub dumpTestsBySuite(\%);
 sub populateTests();
 sub runAllTests();
 sub runAllTestsInSuite($);
 sub populateTests();
 sub runAllTests();
 sub runAllTestsInSuite($);
@@ -55,7 +55,7 @@ my $timeout = 10;
 
 my $showHelp = 0;
 my $verbose = 0;
 
 my $showHelp = 0;
 my $verbose = 0;
-my $dump = 0;
+my $dumpTests = 0;
 my $build = 1;
 my $buildDefault = $build ? "build" : "do not build";
 my @testsFailed;
 my $build = 1;
 my $buildDefault = $build ? "build" : "do not build";
 my @testsFailed;
@@ -74,7 +74,7 @@ EOF
 GetOptions(
     'help' => \$showHelp,
     'verbose|v' => \$verbose,
 GetOptions(
     'help' => \$showHelp,
     'verbose|v' => \$verbose,
-    'dump|d' => \$dump,
+    'dump|d' => \$dumpTests,
     'build!' => \$build
 );
 
     'build!' => \$build
 );
 
@@ -88,8 +88,8 @@ buildTestTool() if $build;
 setPathForRunningWebKitApp(\%ENV);
 my %testsToRun = populateTests();
 
 setPathForRunningWebKitApp(\%ENV);
 my %testsToRun = populateTests();
 
-if ($dump) {
-    dumpAllTests();
+if ($dumpTests) {
+    dumpTestsBySuite(%testsToRun);
     exit 0;
 }
 
     exit 0;
 }
 
@@ -102,13 +102,14 @@ sub isSupportedPlatform()
     return isAppleMacWebKit() || isAppleWinWebKit() || isChromium();
 }
 
     return isAppleMacWebKit() || isAppleWinWebKit() || isChromium();
 }
 
-sub dumpAllTests()
+sub dumpTestsBySuite(\%)
 {
 {
+    my ($testsBySuite) = @_;
     print "Dumping test cases\n";
     print "------------------\n";
     print "Dumping test cases\n";
     print "------------------\n";
-    for my $suite (keys %testsToRun) {
+    for my $suite (sort keys %$testsBySuite) {
         print $suite . ":\n";
         print $suite . ":\n";
-        print map { "   " . $_ . "\n" } @{ $testsToRun{$suite} };
+        print map { "   " . $_ . "\n" } sort @{ $testsBySuite->{$suite} };
     }
     print "------------------\n";
 }
     }
     print "------------------\n";
 }