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