diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-12 20:43:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-12 20:43:46 +0000 |
| commit | 14a976d69a5d1d716c7c894452d30ab0c3386193 (patch) | |
| tree | 6c500ff4f95fd0d681c55a834a9ec49bd1df49c0 /lib | |
| parent | eb042f38945910bd3c5b898e8ae84f9c92d93bdb (diff) | |
| download | perl-14a976d69a5d1d716c7c894452d30ab0c3386193.tar.gz | |
Small tweaks.
p4raw-id: //depot/perl@15208
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Internals.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Internals.t b/lib/Internals.t index 1f514fd344..e8abebbb2d 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 ); + |