One more trace test, this time using "set trace print" and continue

rocky · Oct 12, 2011 · 95f7348 · 95f7348
1 parent 0cf52b0
commit 95f7348
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/t/20test-trace.t b/t/20test-trace.t
@@ -21,8 +21,11 @@ my $opts = {
 	return ($got_lines, $correct_lines);
     },
     no_cmdfile => 1,
-    run_opts => " --trace --no-highlight --command $full_cmdfile"
+    run_opts => " --trace --no-highlight -nx --command $full_cmdfile"
 };
 
 my $test_prog = File::Spec->catfile(dirname(__FILE__), qw(.. example gcd.pl));
-Helper::run_debugger("$test_prog 3 5", 'trace1.cmd', undef, $opts)
+Helper::run_debugger("$test_prog 3 5", 'trace1.cmd', undef, $opts);
+$opts->{no_cmdfile} = 0;
+$opts->{run_opts}   = " --no-highlight --nx --basename --command $full_cmdfile";
+Helper::run_debugger("$test_prog 3 5", 'trace2.cmd', undef, $opts);