ext/XS-APItest/t/push.t

   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()');