diff options
author | Florian Ragwitz <rafl@debian.org> | 2008-11-14 12:24:57 +0100 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2008-11-14 14:18:00 +0000 |
commit | 6fd69bbe2bea498b179902913d94c1f09d136b0c (patch) | |
tree | 9aa05f461bf46ffdba93fe26d89c9f8dc630894a /lib/perl5db.t | |
parent | e23d9e2f39425eea292ee5999c974fdc2cdd98b8 (diff) | |
download | perl-6fd69bbe2bea498b179902913d94c1f09d136b0c.tar.gz |
Add TODO test for :lvalue under -d.
Message-Id: <1226658297-24025-1-git-send-email-rafl@debian.org>
p4raw-id: //depot/perl@34832
Diffstat (limited to 'lib/perl5db.t')
-rw-r--r-- | lib/perl5db.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 2cf7958d33..22a8271c5e 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -26,7 +26,7 @@ my $dev_tty = '/dev/tty'; } } -plan(1); +plan(2); sub rc { open RC, ">", ".perldb" or die $!; @@ -76,6 +76,13 @@ like($contents, qr/sub factorial/, 'The ${main::_<filename} variable in the debugger was not destroyed' ); +TODO: { + local $ENV{PERLDB_OPTS} = "ReadLine=0"; + local $::TODO = "lvalueness isn't propagated in the debugger"; + my $output = runperl(switches => [ '-d' ], progfile => '../lib/perl5db/t/lvalue-bug'); + like($output, qr/foo is defined/, 'lvalue subs work in the debugger'); +} + # clean up. END { |