From 0845ca09535eb9f0e837fd620f150c1014be2fc0 Mon Sep 17 00:00:00 2001
From: "pschwartau%netscape.com" <pschwartau%netscape.com>
Date: Wed, 26 Mar 2003 21:28:19 +0000
Subject: [PATCH] The fix in rev 1.48 was not placed high enough in the
 program. Correcting that now.

---
 js/tests/jsDriver.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/js/tests/jsDriver.pl b/js/tests/jsDriver.pl
index 74b5813d2069..7dbdc8e16ac8 100755
--- a/js/tests/jsDriver.pl
+++ b/js/tests/jsDriver.pl
@@ -151,9 +151,6 @@ sub execute_tests {
     my $file_param = " -f ";
     my ($last_suite, $last_test_dir);
 
-    # Don't run any shell.js files as tests; they are only utility files
-    @test_list = grep (!/shell\.js$/, @test_list);
-
     &status ("Executing " . ($#test_list + 1) . " test(s).");
 
     foreach $test (@test_list) {
@@ -887,9 +884,12 @@ sub get_test_list {
         &dd ((($#neg_list + 1) - $actually_skipped) . " skip tests were " .
              "not actually part of the test list.");
 
-
     }
 
+
+    # Don't run any shell.js files as tests; they are only utility files
+    @test_list = grep (!/shell\.js$/, @test_list);
+
     return @test_list;
 
 }