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