ext/XS-APItest/t/addissub.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More tests => 9;
   5 use XS::APItest ();
   6
   7 alarm 10;   # likely failure mode is an infinite loop
   8
   9 ok 1;
  10 is eval q{ 3 + 1 }, 4;
  11 is eval q{ BEGIN { $^H{"XS::APItest/addissub"} = 1; } 3 + 1 }, 4;
  12 XS::APItest::setup_addissub(); ok 1;
  13 is eval q{ 3 + 1 }, 4;
  14 is eval q{ BEGIN { $^H{"XS::APItest/addissub"} = 1; } 3 + 1 }, 2;
  15 XS::APItest::setup_addissub(); ok 1;
  16 is eval q{ 3 + 1 }, 4;
  17 is eval q{ BEGIN { $^H{"XS::APItest/addissub"} = 1; } 3 + 1 }, 2;
  18
  19 1;