Fixing use of exeext
authorandy@galois.com <unknown>
Wed, 29 Aug 2007 04:40:07 +0000 (04:40 +0000)
committerandy@galois.com <unknown>
Wed, 29 Aug 2007 04:40:07 +0000 (04:40 +0000)
tests/all.T
tests/hpcrun.pl

index 2986fc2..6f9d7ff 100644 (file)
@@ -9,7 +9,7 @@ for dir in os.path.split(getTestDir()):
      hpc = '../' + hpc 
 hpc = hpc + '/../utils/hpc/hpc';
 
-hpc_args = ['perl hpcrun.pl --clear --hpc=' + hpc,'-fhpc'];
+hpc_args = ['perl hpcrun.pl --clear --exeext=' + config.exeext + ' --hpc=' + hpc,'-fhpc'];
 
 test('hpc001', normal, compile_and_run_with_prefix, hpc_args)
 
@@ -49,5 +49,3 @@ test('hpc_help_version', normal, run_command, [hpc + ' help version'])
 test('hpc_version', normal, run_command, [hpc + ' version'])
 
 test('hpc_bad_001', exit_code(1), run_command, [hpc + ' bad arguments'])
-
-test('hpc001', normal, compile_and_run_with_prefix, ['perl hpcrun.pl --hpc=' + hpc,'-fhpc'])
index 22cba7a..b1e367d 100644 (file)
@@ -6,10 +6,9 @@ while($ARGV[0] =~ /^--/) {
   $arg = shift @ARGV;
   if ($arg =~ /--hpc=(.*)/) {
     $HPC = $1;
-  }
-  if ($ARGV[0] =~ /--report/) {
-    shift @ARGV;
-    $REPORT = 1;       
+  } 
+  elsif ($arg =~ /--clear/) {
+    $CLEAR = 1;       
   }
   elsif ($arg =~ /--exeext=(.*)/) {
     $exeext = $1;
@@ -19,7 +18,6 @@ while($ARGV[0] =~ /^--/) {
   }
 }
 
-
 die "no option --hpc=* provided\n" if (!defined($HPC));
         
 $binary = $ARGV[0] . $exeext;