1use Test::More tests => 9; 2 3BEGIN { use_ok('XS::APItest') }; 4 5######################### 6 7my @mpushp = mpushp(); 8my @mpushn = mpushn(); 9my @mpushi = mpushi(); 10my @mpushu = mpushu(); 11ok(eq_array(\@mpushp, [qw(one two three)]), 'mPUSHp()'); 12ok(eq_array(\@mpushn, [0.5, -0.25, 0.125]), 'mPUSHn()'); 13ok(eq_array(\@mpushi, [-1, 2, -3]), 'mPUSHi()'); 14ok(eq_array(\@mpushu, [1, 2, 3]), 'mPUSHu()'); 15 16my @mxpushp = mxpushp(); 17my @mxpushn = mxpushn(); 18my @mxpushi = mxpushi(); 19my @mxpushu = mxpushu(); 20ok(eq_array(\@mxpushp, [qw(one two three)]), 'mXPUSHp()'); 21ok(eq_array(\@mxpushn, [0.5, -0.25, 0.125]), 'mXPUSHn()'); 22ok(eq_array(\@mxpushi, [-1, 2, -3]), 'mXPUSHi()'); 23ok(eq_array(\@mxpushu, [1, 2, 3]), 'mXPUSHu()'); 24