1#!perl
2
3use strict;
4use warnings;
5
6use Test::More tests => 7;
7
8use XS::APItest qw(DEFSV);
9
10is $_, undef;
11is DEFSV, undef;
12is \DEFSV, \$_;
13
14DEFSV = "foo";
15is DEFSV, "foo";
16is $_, "foo";
17
18$_ = "bar";
19is DEFSV, "bar";
20is $_, "bar";
21