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

#!perl

use strict;
use warnings;

use Test::More tests => 9;

use Tie::Scalar;

use_ok('XS::APItest');

my $a;
my $sr = \$a;
my $ar = [];
my $hr = {};
my $cr = sub{};

is XS::APItest::take_svref($sr), $sr;
is XS::APItest::take_avref($ar), $ar;
is XS::APItest::take_hvref($hr), $hr;
is XS::APItest::take_cvref($cr), $cr;

my $obj = tie my $ref, 'Tie::StdScalar';
${$obj} = $sr;
is XS::APItest::take_svref($sr), $sr;

${$obj} = $ar;
is XS::APItest::take_avref($ar), $ar;

${$obj} = $hr;
is XS::APItest::take_hvref($hr), $hr;

${$obj} = $cr;
is XS::APItest::take_cvref($cr), $cr;
Commit	Line	Data
88b5a879	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
d257ec14	6	use Test::More tests => 9;
88b5a879	7
	8	use Tie::Scalar;
	9
	10	use_ok('XS::APItest');
	11
	12	my $a;
	13	my $sr = \$a;
	14	my $ar = [];
	15	my $hr = {};
	16	my $cr = sub{};
	17
	18	is XS::APItest::take_svref($sr), $sr;
	19	is XS::APItest::take_avref($ar), $ar;
	20	is XS::APItest::take_hvref($hr), $hr;
	21	is XS::APItest::take_cvref($cr), $cr;
	22
	23	my $obj = tie my $ref, 'Tie::StdScalar';
	24	${$obj} = $sr;
	25	is XS::APItest::take_svref($sr), $sr;
	26
	27	${$obj} = $ar;
	28	is XS::APItest::take_avref($ar), $ar;
	29
	30	${$obj} = $hr;
	31	is XS::APItest::take_hvref($hr), $hr;
	32
	33	${$obj} = $cr;
	34	is XS::APItest::take_cvref($cr), $cr;