}
}
-plan(98);
+plan(99);
my $rc_filename = '.perldb';
);
}
-# Test the o PrintRet=1 command
+# Test the o PrintRet=1 option
{
my $wrapper = DebugWrap->new(
{
);
}
+# Test the o PrintRet=0 option
+{
+ my $wrapper = DebugWrap->new(
+ {
+ cmds =>
+ [
+ 'o PrintRet=0',
+ 'b 29',
+ 'c',
+ q/$x = 's';/,
+ 'b 10',
+ 'c',
+ 'r',
+ 'q',
+ ],
+ prog => '../lib/perl5db/t/test-PrintRet-option-1',
+ }
+ );
+
+ $wrapper->contents_unlike(
+ qr/scalar context/,
+ "Test o PrintRet=0",
+ );
+}
+
END {
1 while unlink ($rc_filename, $out_fn);
}