6 use Test::More tests => 9;
10 my @types = map { 'whichsig' . $_ } '', qw( _sv _pv _pvn );
12 sub test { "Sanity check" }
15 for my $type ( 0..3 ) {
16 is XS::APItest::whichsig_type("KILL", $type), 9, "Sanity check, $types[$type] works";
20 is XS::APItest::whichsig_type("KILL\0whoops", 0), 9, "whichsig() is not nul-clean";
22 is XS::APItest::whichsig_type("KILL\0whoops", 1), -1, "whichsig_sv() is nul-clean";
24 is XS::APItest::whichsig_type("KILL\0whoops", 2), 9, "whichsig_pv() is not nul-clean";
26 is XS::APItest::whichsig_type("KILL\0whoops", 3), -1, "whichsig_pvn() is nul-clean";