ext/Data/Util/t/Data.t

   1 #!/usr/bin/perl -Tw
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         @INC = '../lib';
   6         chdir 't';
   7     }
   8 }
   9 use Test::More tests => 26;
  10
  11 use Data::Util;
  12 BEGIN { use_ok 'Data::Util', qw(sv_readonly_flag); }
  13
  14 ok( !sv_readonly_flag $foo );
  15 ok( !sv_readonly_flag $foo, 1 );
  16 ok( sv_readonly_flag $foo );
  17 ok( sv_readonly_flag $foo, 0 );
  18 ok( !sv_readonly_flag $foo );
  19
  20 ok( !sv_readonly_flag @foo );
  21 ok( !sv_readonly_flag @foo, 1 );
  22 ok( sv_readonly_flag @foo );
  23 ok( sv_readonly_flag @foo, 0 );
  24 ok( !sv_readonly_flag @foo );
  25
  26 ok( !sv_readonly_flag $foo[2] );
  27 ok( !sv_readonly_flag $foo[2], 1 );
  28 ok( sv_readonly_flag $foo[2] );
  29 ok( sv_readonly_flag $foo[2], 0 );
  30 ok( !sv_readonly_flag $foo[2] );
  31
  32 ok( !sv_readonly_flag %foo );
  33 ok( !sv_readonly_flag %foo, 1 );
  34 ok( sv_readonly_flag %foo );
  35 ok( sv_readonly_flag %foo, 0 );
  36 ok( !sv_readonly_flag %foo );
  37
  38 ok( !sv_readonly_flag $foo{foo} );
  39 ok( !sv_readonly_flag $foo{foo}, 1 );
  40 ok( sv_readonly_flag $foo{foo} );
  41 ok( sv_readonly_flag $foo{foo}, 0 );
  42 ok( !sv_readonly_flag $foo{foo} );