use strict;
use warnings;
use Config;
+use vars qw($TODO);
BEGIN {
if (! -c "/dev/null") {
}
}
-plan(106);
+plan(107);
my $rc_filename = '.perldb';
);
}
+{ # test t expr
+ local $TODO = "t expr is broken";
+ my $wrapper = DebugWrap->new(
+ {
+ cmds =>
+ [
+ # This is to avoid getting the "Debugger program terminated"
+ # junk that interferes with the normal output.
+ 'o inhibit_exit=0',
+ 't fact(3)',
+ 'q',
+ ],
+ prog => '../lib/perl5db/t/fact',
+ }
+ );
+
+ $wrapper->contents_like(
+ qr/
+ (?:^main::fact.*return\ \$n\ \*\ fact\(\$n\ -\ 1\);.*)
+ /msx,
+ "Test t expr",
+ );
+}
+
END {
1 while unlink ($rc_filename, $out_fn);
}