[perl5.git] / ext / XS-APItest / t / push.t

use Test::More tests => 9;

BEGIN { use_ok('XS::APItest') };

#########################

my @mpushp = mpushp();
my @mpushn = mpushn();
my @mpushi = mpushi();
my @mpushu = mpushu();
ok(eq_array(\@mpushp, [qw(one two three)]), 'mPUSHp()');
ok(eq_array(\@mpushn, [0.5, -0.25, 0.125]), 'mPUSHn()');
ok(eq_array(\@mpushi, [-1, 2, -3]),         'mPUSHi()');
ok(eq_array(\@mpushu, [1, 2, 3]),           'mPUSHu()');

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