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