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(); 11is_deeply(\@mpushp, [qw(one two three)], 'mPUSHp()'); 12is_deeply(\@mpushn, [0.5, -0.25, 0.125], 'mPUSHn()'); 13is_deeply(\@mpushi, [-1, 2, -3], 'mPUSHi()'); 14is_deeply(\@mpushu, [1, 2, 3], 'mPUSHu()'); 15 16my @mxpushp = mxpushp(); 17my @mxpushn = mxpushn(); 18my @mxpushi = mxpushi(); 19my @mxpushu = mxpushu(); 20is_deeply(\@mxpushp, [qw(one two three)], 'mXPUSHp()'); 21is_deeply(\@mxpushn, [0.5, -0.25, 0.125], 'mXPUSHn()'); 22is_deeply(\@mxpushi, [-1, 2, -3], 'mXPUSHi()'); 23is_deeply(\@mxpushu, [1, 2, 3], 'mXPUSHu()'); 24