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