ext/XS-APItest/t/multicall.t

   1 #!perl -w
   2
   3 # test the MULTICALL macros
   4 # Note: as of Oct 2010, there are not yet comprehensive tests
   5 # for these macros.
   6
   7 use warnings;
   8 use strict;
   9
  10 use Test::More tests => 4;
  11 use XS::APItest;
  12
  13
  14 {
  15     my $sum = 0;
  16     sub add { $sum += $_++ }
  17
  18     my @a = (1..3);
  19     XS::APItest::multicall_each \&add, @a;
  20     is($sum, 6, "sum okay");
  21     is($a[0], 2, "a[0] okay");
  22     is($a[1], 3, "a[1] okay");
  23     is($a[2], 4, "a[2] okay");
  24 }