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