ext/XS-APItest/t/whichsig.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 9;
   7
   8 use_ok('XS::APItest');
   9
  10 my @types = map { 'whichsig' . $_ } '', qw( _sv _pv _pvn );
  11
  12 sub 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
  20 is XS::APItest::whichsig_type("KILL\0whoops", 0), 9, "whichsig() is not nul-clean";
  21
  22 is XS::APItest::whichsig_type("KILL\0whoops", 1), -1, "whichsig_sv() is nul-clean";
  23
  24 is XS::APItest::whichsig_type("KILL\0whoops", 2), 9, "whichsig_pv() is not nul-clean";
  25
  26 is XS::APItest::whichsig_type("KILL\0whoops", 3), -1, "whichsig_pvn() is nul-clean";