Add a prepare-only mode to runtest.pl, to help with debugging on Windows

1 files changed, 13 insertions, 0 deletions

diff --git a/runtest.pl.in b/runtest.pl.in
index 23e46f95..818b5535 100755
--- a/runtest.pl.in
+++ b/runtest.pl.in
@@ -9,6 +9,14 @@ use lib dirname($0).'/infrastructure';
 
 use BoxPlatform;
 
+my $prepare_only = 0;
+if (@ARGV and $ARGV[0] eq '-n')
+{
+	# Don't actually run the test, just prepare for it.
+	$prepare_only = 1;
+	shift @ARGV;
+}
+
 my ($test_name,$test_mode) = @ARGV;
 
 $test_mode = 'debug' if not defined $test_mode or $test_mode eq '';
@@ -190,6 +198,11 @@ sub runtest
 
 	my $logfile = "test-$t.log";
 	my $test_res;
+
+	if($prepare_only)
+	{
+		return;
+	}
 	
 	# run it
 	if($target_msvc)