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