4 if( $ENV{PERL_CORE} ) {
9 use Test::More tests => 26;
12 BEGIN { use_ok 'Data::Util', qw(sv_readonly_flag); }
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 );
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 );
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] );
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 );
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} );