1*898184e3Ssthen#!perl 2*898184e3Ssthen 3*898184e3Ssthenuse strict; 4*898184e3Ssthenuse warnings; 5*898184e3Ssthen 6*898184e3Ssthenuse Test::More tests => 9; 7*898184e3Ssthen 8*898184e3Ssthenuse_ok('XS::APItest'); 9*898184e3Ssthen 10*898184e3Ssthenmy @types = map { 'whichsig' . $_ } '', qw( _sv _pv _pvn ); 11*898184e3Ssthen 12*898184e3Ssthensub test { "Sanity check" } 13*898184e3Ssthen 14*898184e3Ssthen{ 15*898184e3Ssthen for my $type ( 0..3 ) { 16*898184e3Ssthen is XS::APItest::whichsig_type("KILL", $type), 9, "Sanity check, $types[$type] works"; 17*898184e3Ssthen } 18*898184e3Ssthen} 19*898184e3Ssthen 20*898184e3Ssthenis XS::APItest::whichsig_type("KILL\0whoops", 0), 9, "whichsig() is not nul-clean"; 21*898184e3Ssthen 22*898184e3Ssthenis XS::APItest::whichsig_type("KILL\0whoops", 1), -1, "whichsig_sv() is nul-clean"; 23*898184e3Ssthen 24*898184e3Ssthenis XS::APItest::whichsig_type("KILL\0whoops", 2), 9, "whichsig_pv() is not nul-clean"; 25*898184e3Ssthen 26*898184e3Ssthenis XS::APItest::whichsig_type("KILL\0whoops", 3), -1, "whichsig_pvn() is nul-clean"; 27