Module::CoreList: Data from Sebastien Aperghis-Tramoni for perl

[perl5.git] / lib / Internals.t

diff --git a/lib/Internals.t b/lib/Internals.t
index 1f514fd..e8abebb 100644 (file)
--- 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 );
+