Commit | Line | Data |
---|---|---|
88b5a879 GF |
1 | #!perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
d257ec14 | 6 | use Test::More tests => 9; |
88b5a879 GF |
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; |