#!perl

use strict;
use warnings;

use Test::More tests => 16;

use XS::APItest qw(DEFSV);

is $_, undef;
is DEFSV, undef;
is \DEFSV, \$_;

DEFSV = "foo";
is DEFSV, "foo";
is $_, "foo";

$_ = "bar";
is DEFSV, "bar";
is $_, "bar";

{
    no warnings 'experimental::lexical_topic';
    my $_;

    is $_, undef;
    is DEFSV, undef;
    is \DEFSV, \$_;

    DEFSV = "lex-foo";
    is DEFSV, "lex-foo";
    is $_, "lex-foo";

    $_ = "lex-bar";
    is DEFSV, "lex-bar";
    is $_, "lex-bar";
}

is DEFSV, "bar";
is $_, "bar";