From: Vincent Pit Date: Sun, 1 Mar 2009 10:56:57 +0000 (+0100) Subject: Correct some test descriptions X-Git-Tag: rt44204~5 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=fc2f5019e1fd7bc4f38054fc605fdf77ba5bdc65;hp=fe721e2fd6e919d3abaa66a7e7bcc5578bc38672;p=perl%2Fmodules%2FScope-Upper.git Correct some test descriptions --- diff --git a/t/40-localize_delete-target.t b/t/40-localize_delete-target.t index 24597b7..999fe9e 100644 --- a/t/40-localize_delete-target.t +++ b/t/40-localize_delete-target.t @@ -147,21 +147,21 @@ our %h; our $x = 1; { localize_delete '$x', 2 => HERE; - is $x, undef, 'localize "$x", anything => HERE [ok]'; + is $x, undef, 'localize_delete "$x", anything => HERE [ok]'; } -is $x, 1, 'localize "$x", anything => HERE [end]'; +is $x, 1, 'localize_delete "$x", anything => HERE [end]'; sub x { 1 }; { localize_delete '&x', 2 => HERE; - ok !exists(&x), 'localize "&x", anything => HERE [ok]'; + ok !exists(&x), 'localize_delete "&x", anything => HERE [ok]'; } -is x(), 1, 'localize "&x", anything => HERE [end]'; +is x(), 1, 'localize_delete "&x", anything => HERE [end]'; { localize_delete *x, sub { } => HERE; - is !exists(&x), 1, 'localize *x, anything => HERE [ok 1]'; - is !defined($x), 1, 'localize *x, anything => HERE [ok 2]'; + is !exists(&x), 1, 'localize_delete *x, anything => HERE [ok 1]'; + is !defined($x), 1, 'localize_delete *x, anything => HERE [ok 2]'; } -is x(), 1, 'localize *x, anything => HERE [end 1]'; -is $x, 1, 'localize *x, anything => HERE [end 2]'; +is x(), 1, 'localize_delete *x, anything => HERE [end 1]'; +is $x, 1, 'localize_delete *x, anything => HERE [end 2]';