lib/Internals.t

   1 #!/usr/bin/perl -Tw
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         @INC = '../lib';
   6         chdir 't';
   7     }
   8 }
   9
  10 use Test::More tests => 33;
  11
  12 my $foo;
  13 my @foo;
  14 my %foo;
  15
  16 ok( !Internals::SvREADONLY $foo );
  17 ok(  Internals::SvREADONLY $foo, 1 );
  18 ok(  Internals::SvREADONLY $foo );
  19 ok( !Internals::SvREADONLY $foo, 0 );
  20 ok( !Internals::SvREADONLY $foo );
  21
  22 ok( !Internals::SvREADONLY @foo );
  23 ok(  Internals::SvREADONLY @foo, 1 );
  24 ok(  Internals::SvREADONLY @foo );
  25 ok( !Internals::SvREADONLY @foo, 0 );
  26 ok( !Internals::SvREADONLY @foo );
  27
  28 ok( !Internals::SvREADONLY $foo[2] );
  29 ok(  Internals::SvREADONLY $foo[2], 1 );
  30 ok(  Internals::SvREADONLY $foo[2] );
  31 ok( !Internals::SvREADONLY $foo[2], 0 );
  32 ok( !Internals::SvREADONLY $foo[2] );
  33
  34 ok( !Internals::SvREADONLY %foo );
  35 ok(  Internals::SvREADONLY %foo, 1 );
  36 ok(  Internals::SvREADONLY %foo );
  37 ok( !Internals::SvREADONLY %foo, 0 );
  38 ok( !Internals::SvREADONLY %foo );
  39
  40 ok( !Internals::SvREADONLY $foo{foo} );
  41 ok(  Internals::SvREADONLY $foo{foo}, 1 );
  42 ok(  Internals::SvREADONLY $foo{foo} );
  43 ok( !Internals::SvREADONLY $foo{foo}, 0 );
  44 ok( !Internals::SvREADONLY $foo{foo} );
  45
  46 is(  Internals::SvREFCNT($foo), 1 );
  47 {
  48     my $bar = \$foo;
  49     is(  Internals::SvREFCNT($foo), 2 );
  50     is(  Internals::SvREFCNT($bar), 1 );
  51 }
  52 is(  Internals::SvREFCNT($foo), 1 );
  53
  54 is(  Internals::SvREFCNT(@foo), 1 );
  55 is(  Internals::SvREFCNT($foo[2]), 1 );
  56 is(  Internals::SvREFCNT(%foo), 1 );
  57 is(  Internals::SvREFCNT($foo{foo}), 1 );
  58