svsetsv.t revision 1.1.1.1
1BEGIN { 2 chdir 't' if -d 't'; 3 @INC = '../lib'; 4 push @INC, "::lib:$MacPerl::Architecture:" if $^O eq 'MacOS'; 5 require Config; import Config; 6 if ($Config{'extensions'} !~ /\bXS\/APItest\b/) { 7 print "1..0 # Skip: XS::APItest was not built\n"; 8 exit 0; 9 } 10} 11 12use strict; 13use warnings; 14 15use Test::More tests => 3; 16 17BEGIN { use_ok('XS::APItest') }; 18 19# I can't see a good way to easily get back perl-space diagnostics for these 20# I hope that this isn't a problem. 21if ($] > 5.009) { 22 ok(sv_setsv_cow_hashkey_core, 23 "With PERL_CORE sv_setsv does COW for shared hash key scalars"); 24} else { 25 ok(!sv_setsv_cow_hashkey_core, 26 "With PERL_CORE on 5.8.x sv_setsv doesn't COW for shared hash key scalars"); 27} 28 29ok(!sv_setsv_cow_hashkey_notcore, 30 "Without PERL_CORE sv_setsv doesn't COW for shared hash key scalars"); 31