diff options
| -rw-r--r-- | t/op/gv.t | 5 | ||||
| -rw-r--r-- | t/op/method.t | 3 | ||||
| -rw-r--r-- | t/op/undef.t | 12 | ||||
| -rw-r--r-- | t/uni/gv.t | 5 |
4 files changed, 20 insertions, 5 deletions
@@ -192,7 +192,10 @@ is (*{*x{GLOB}}, "*main::STDOUT"); my $a = "SYM000"; ok(!defined *{$a}); - ok(!defined @{$a}); + { + no warnings 'deprecated'; + ok(!defined @{$a}); + } ok(!defined *{$a}); { diff --git a/t/op/method.t b/t/op/method.t index f84f6e2aeb..7867095c85 100644 --- a/t/op/method.t +++ b/t/op/method.t @@ -172,7 +172,10 @@ is(A->eee(), "new B: In A::eee, 4"); # Which sticks { no strict 'refs'; + no warnings 'deprecated'; # this test added due to bug discovery (in 5.004_04, fb73857aa0bfa8ed) + # Possibly kill this test now that defined @::array is finally properly + # deprecated? is(defined(@{"unknown_package::ISA"}) ? "defined" : "undefined", "undefined"); } diff --git a/t/op/undef.t b/t/op/undef.t index ec8d832515..eafa6dbe60 100644 --- a/t/op/undef.t +++ b/t/op/undef.t @@ -44,14 +44,17 @@ ok !defined($ary{'bar'}); undef $ary{'foo'}; ok !defined($ary{'foo'}); -ok defined(@ary); { no warnings 'deprecated'; + ok defined(@ary); ok defined(%ary); } ok %ary; undef @ary; -ok !defined(@ary); +{ + no warnings 'deprecated'; + ok !defined(@ary); +} undef %ary; { no warnings 'deprecated'; @@ -59,7 +62,10 @@ undef %ary; } ok !%ary; @ary = (1); -ok defined @ary; +{ + no warnings 'deprecated'; + ok defined @ary; +} %ary = (1,1); { no warnings 'deprecated'; diff --git a/t/uni/gv.t b/t/uni/gv.t index bd1fee14d6..f128ec585b 100644 --- a/t/uni/gv.t +++ b/t/uni/gv.t @@ -194,7 +194,10 @@ is (*{*Ẋ{GLOB}}, "*main::STDOUT"); my $a = "Sʎｍ000"; ok(!defined *{$a}); - ok(!defined @{$a}); + { + no warnings 'deprecated'; + ok(!defined @{$a}); + } ok(!defined *{$a}); { |