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