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