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

#!perl -w

use strict;
use utf8;
use Test::More tests => 5;

require_ok('XS::APItest');

sub make_temp_mg_lv :lvalue {  XS::APItest::TempLv::make_temp_mg_lv($_[0]); }

{
    my $x = "[]";
    eval { XS::APItest::TempLv::make_temp_mg_lv($x) = "a"; };
    is($@, '',    'temp mg lv from xs exception check');
    is($x, '[a]', 'temp mg lv from xs success');
}

{
    my $x = "{}";
    eval { make_temp_mg_lv($x) = "b"; };
    is($@, '',    'temp mg lv from pp exception check');
    is($x, '{b}', 'temp mg lv from pp success');
}

1;
Commit	Line	Data
e2fe06dd EB	1	#!perl -w
e2fe06dd EB	2
e2fe06dd EB	3	use strict;
	4	use utf8;
	5	use Test::More tests => 5;
	6
e2f1cb34	7	require_ok('XS::APItest');
e2fe06dd EB	8
	9	sub make_temp_mg_lv :lvalue { XS::APItest::TempLv::make_temp_mg_lv($_[0]); }
	10
	11	{
	12	my $x = "[]";
	13	eval { XS::APItest::TempLv::make_temp_mg_lv($x) = "a"; };
	14	is($@, '', 'temp mg lv from xs exception check');
	15	is($x, '[a]', 'temp mg lv from xs success');
	16	}
	17
	18	{
e2fe06dd EB	19	my $x = "{}";
	20	eval { make_temp_mg_lv($x) = "b"; };
	21	is($@, '', 'temp mg lv from pp exception check');
	22	is($x, '{b}', 'temp mg lv from pp success');
	23	}
	24
	25	1;