unit_tests/run_tests.pl
changeset 742 2108031e4ef5
parent 741 0da871dd944b
child 750 238675cfa788
--- a/unit_tests/run_tests.pl	Thu Apr 09 00:24:33 2009 -0400
+++ b/unit_tests/run_tests.pl	Thu Apr 09 00:28:03 2009 -0400
@@ -9,6 +9,9 @@
 undef $Bin;
 #print("testdir is $testdir\n");
 
+
+my $GPrintCmds = 0;
+
 my @modules = qw( preprocessor assembler compiler parser );
 
 
@@ -59,7 +62,9 @@
     } else {
         return (0, "Don't know how to do this module type");
     }
-    $cmd .= '2>/dev/null 1>/dev/null';
+    $cmd .= ' 2>/dev/null 1>/dev/null';
+
+    print("$cmd\n") if ($GPrintCmds);
 
     if (system($cmd) != 0) {
         unlink($output) if (-f $output);