6 use Test::More tests => 9;
10 use_ok('XS::APItest');
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;
23 my $obj = tie my $ref, 'Tie::StdScalar';
25 is XS::APItest::take_svref($sr), $sr;
28 is XS::APItest::take_avref($ar), $ar;
31 is XS::APItest::take_hvref($hr), $hr;
34 is XS::APItest::take_cvref($cr), $cr;