Changeset 909

Timestamp:

01/09/2006 00:41:33 (5 years ago)

Author:

chris

Message:

Revert to trunk

File:

• box/chris/merge/runtest.pl.in (modified) (6 diffs)

box/chris/merge/runtest.pl.in

@@ -1 +1 @@
 #!@PERL@
-
-use strict;
-use warnings;
 
 use lib 'infrastructure';
@@ -9 +6 @@
 my ($test_name,$test_mode) = @ARGV;
 
-$test_mode = 'debug' if not defined $test_mode or $test_mode eq '';
+$test_mode = 'debug' if $test_mode eq '';
 
 if($test_name eq '' || ($test_mode ne 'debug' && $test_mode ne 'release'))
@@ -21 +18 @@
 
 __E
-        exit(2);
+        exit(0);
 }
 
 my @results;
-my $exit_code = 0;
 
 if($test_name ne 'ALL')
 {
-        # run one or more specified test
-        if ($test_name =~ m/,/)
-        {
-                foreach my $test (split m/,/, $test_name)
-                {
-                        runtest($test);
-                }
-        }
-        else
-        {
-                runtest($test_name);
-        }
+        # run one test
+        runtest($test_name);
 }
 else
@@ -72 +58 @@
 print "--------\n",join("\n",@results),"\n";
 
-exit $exit_code;
-
 sub runtest
 {
@@ -84 +68 @@
         {
                 push @results,"$t: make failed";
-                $exit_code = 2;
                 return;
         }
@@ -100 +83 @@
                 }
                 close RESULTS;
-
                 chomp $last;
                 push @results,"$t: $last";
-
-                if ($last ne "PASSED") 
-                { 
-                        $exit_code = 1;
-                }
         }
         else