X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FInternals.t;h=e8abebbb2d3842c41c16a111307b29b9432d5eef;hb=b5379b0df09a1d2f8fb44659104d41784790923d;hp=1f514fd3443615ec0f72ea38d4f49da82f18b6ec;hpb=2956957731badfc3e16c029c1f22e4098fb8c46a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Internals.t b/lib/Internals.t
index 1f514fd..e8abebb 100644
--- a/lib/Internals.t
+++ b/lib/Internals.t
@@ -7,9 +7,11 @@ BEGIN {
     }
 }
 
-use Test::More tests => 29;
+use Test::More tests => 33;
 
 my $foo;
+my @foo;
+my %foo;
 
 ok( !Internals::SvREADONLY $foo );
 ok(  Internals::SvREADONLY $foo, 1 );
@@ -49,3 +51,8 @@ is(  Internals::SvREFCNT($foo), 1 );
 }
 is(  Internals::SvREFCNT($foo), 1 );
 
+is(  Internals::SvREFCNT(@foo), 1 );
+is(  Internals::SvREFCNT($foo[2]), 1 );
+is(  Internals::SvREFCNT(%foo), 1 );
+is(  Internals::SvREFCNT($foo{foo}), 1 );
+