From b880f709320776e295c5359276e8eb7a40ce30c0 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 4 Jan 2012 11:23:17 +0100
Subject: [PATCH] Test that defined warns for package arrays and hashes.

Currently TODO'd for package arrays. The existing tests were only for
lexicals.
---
 t/lib/warnings/op | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index c05aa9b..b449103 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -799,6 +799,13 @@ my $a
 EXPECT
 ########
 # op.c
+# TODO - defined @::array doesn't warn yet.
+defined(@a);
+EXPECT
+defined(@array) is deprecated at - line 2.
+	(Maybe you should just omit the defined()?)
+########
+# op.c
 my @a; defined(@a);
 EXPECT
 defined(@array) is deprecated at - line 2.
@@ -811,6 +818,12 @@ defined(@array) is deprecated at - line 2.
 	(Maybe you should just omit the defined()?)
 ########
 # op.c
+defined(%h);
+EXPECT
+defined(%hash) is deprecated at - line 2.
+	(Maybe you should just omit the defined()?)
+########
+# op.c
 my %h; defined(%h);
 EXPECT
 defined(%hash) is deprecated at - line 2.
-- 
2.7.4