[perl5.git] / ext / XS-APItest / t / synthetic_scope.t

#!perl

use strict;
use warnings;

use Test::More tests => 18;

use XS::APItest qw(with_vars);

my $foo = "A"; my $rfoo = \$foo;
my $bar = "B"; my $rbar = \$bar;
my $baz = "C"; my $rbaz = \$baz;

with_vars foo bar baz {
    is $foo, 1;
    is $$rfoo, "A";
    isnt \$foo, $rfoo;

    is $bar, 2;
    is $$rbar, "B";
    isnt \$bar, $rbar;

    is $baz, 3;
    is $$rbaz, "C";
    isnt \$baz, $rbaz;
}

is $foo, "A";
is \$foo, $rfoo;

is $bar, "B";
is \$bar, $rbar;

is $baz, "C";
is \$baz, $rbaz;

with_vars x {
    is $x, 1;
}

is eval('$x++'), undef;
like $@, qr/explicit package name/;
Commit	Line	Data
25f5d540 LM	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 18;
	7
	8	use XS::APItest qw(with_vars);
	9
	10	my $foo = "A"; my $rfoo = \$foo;
	11	my $bar = "B"; my $rbar = \$bar;
	12	my $baz = "C"; my $rbaz = \$baz;
	13
	14	with_vars foo bar baz {
	15	is $foo, 1;
	16	is $$rfoo, "A";
	17	isnt \$foo, $rfoo;
	18
	19	is $bar, 2;
	20	is $$rbar, "B";
	21	isnt \$bar, $rbar;
	22
	23	is $baz, 3;
	24	is $$rbaz, "C";
	25	isnt \$baz, $rbaz;
	26	}
	27
	28	is $foo, "A";
	29	is \$foo, $rfoo;
	30
	31	is $bar, "B";
	32	is \$bar, $rbar;
	33
	34	is $baz, "C";
	35	is \$baz, $rbaz;
	36
	37	with_vars x {
	38	is $x, 1;
	39	}
	40
	41	is eval('$x++'), undef;
	42	like $@, qr/explicit package name/;