From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 28 Nov 1998 13:20:34 +0000 (+0000)
Subject: test cases for previous change
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=659eaf7385567ca82dd230a62d6a7f51364f0d0a;p=p5sagit%2Fp5-mst-13.2.git

test cases for previous change

p4raw-id: //depot/perl@2346
---

diff --git a/t/op/undef.t b/t/op/undef.t
index 5b3c7ef..3bfe1a3 100755
--- a/t/op/undef.t
+++ b/t/op/undef.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..23\n";
+print "1..27\n";
 
 print defined($a) ? "not ok 1\n" : "ok 1\n";
 
@@ -59,3 +59,18 @@ print $@ =~ /^Modification of a read/ ? "ok 22\n" : "not ok 22\n";
 eval { $1 = undef };
 print $@ =~ /^Modification of a read/ ? "ok 23\n" : "not ok 23\n";
 
+{
+    require Tie::Hash;
+    tie my %foo, 'Tie::StdHash';
+    print defined %foo ? "ok 24\n" : "not ok 24\n";
+    %foo = ( a => 1 );
+    print defined %foo ? "ok 25\n" : "not ok 25\n";
+}
+
+{
+    require Tie::Array;
+    tie my @foo, 'Tie::StdArray';
+    print defined @foo ? "ok 26\n" : "not ok 26\n";
+    @foo = ( a => 1 );
+    print defined @foo ? "ok 27\n" : "not ok 27\n";
+}