Internals.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
BEGIN {
chdir 't';
}
}
my $foo;
my @foo;
my %foo;
ok( !Internals::SvREADONLY $foo );
ok( Internals::SvREADONLY $foo, 1 );
ok( Internals::SvREADONLY $foo );
ok( !Internals::SvREADONLY $foo, 0 );
ok( !Internals::SvREADONLY $foo );
ok( !Internals::SvREADONLY @foo );
ok( Internals::SvREADONLY @foo, 1 );
ok( Internals::SvREADONLY @foo );
ok( !Internals::SvREADONLY @foo, 0 );
ok( !Internals::SvREADONLY @foo );
ok( !Internals::SvREADONLY $foo[2] );
ok( Internals::SvREADONLY $foo[2], 1 );
ok( Internals::SvREADONLY $foo[2] );
ok( !Internals::SvREADONLY $foo[2], 0 );
ok( !Internals::SvREADONLY $foo[2] );
ok( !Internals::SvREADONLY %foo );
ok( Internals::SvREADONLY %foo, 1 );
ok( Internals::SvREADONLY %foo );
ok( !Internals::SvREADONLY %foo, 0 );
ok( !Internals::SvREADONLY %foo );
ok( !Internals::SvREADONLY $foo{foo} );
ok( Internals::SvREADONLY $foo{foo}, 1 );
ok( Internals::SvREADONLY $foo{foo} );
ok( !Internals::SvREADONLY $foo{foo}, 0 );
ok( !Internals::SvREADONLY $foo{foo} );
{
}