1BEGIN {
2    chdir 't' if -d 't';
3    @INC = '../lib';
4    push @INC, "::lib:$MacPerl::Architecture:" if $^O eq 'MacOS';
5    require Config; import Config;
6    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
7        print "1..0 # Skip: XS::APItest was not built\n";
8        exit 0;
9    }
10}
11
12use Test::More tests => 9;
13
14BEGIN { use_ok('XS::APItest') };
15
16#########################
17
18my @mpushp = mpushp();
19my @mpushn = mpushn();
20my @mpushi = mpushi();
21my @mpushu = mpushu();
22ok(eq_array(\@mpushp, [qw(one two three)]), 'mPUSHp()');
23ok(eq_array(\@mpushn, [0.5, -0.25, 0.125]), 'mPUSHn()');
24ok(eq_array(\@mpushi, [-1, 2, -3]),         'mPUSHi()');
25ok(eq_array(\@mpushu, [1, 2, 3]),           'mPUSHu()');
26
27my @mxpushp = mxpushp();
28my @mxpushn = mxpushn();
29my @mxpushi = mxpushi();
30my @mxpushu = mxpushu();
31ok(eq_array(\@mxpushp, [qw(one two three)]), 'mXPUSHp()');
32ok(eq_array(\@mxpushn, [0.5, -0.25, 0.125]), 'mXPUSHn()');
33ok(eq_array(\@mxpushi, [-1, 2, -3]),         'mXPUSHi()');
34ok(eq_array(\@mxpushu, [1, 2, 3]),           'mXPUSHu()');
35