use Signals::XSIG;
use Test::More tests => 15;
use strict;
use warnings;
use POSIX ();
use Config;
eval { require Time::HiRes };

# running the default emulator of Signals::XSIG should produce the
# same behavior as not using Signals::XSIG
# t/20b: signals that usually suspend a program

# it takes a few seconds to test each signal
# so this is the most time consuming test.

require "t/20-defaults.tt";

my @failed = ();
my @signals = qw(STOP TSTP TTIN TTOU CONT);

if (@ARGV > 0) {
  my $n = @signals;
  @signals = @ARGV;
  unshift @signals, '#' while @signals < $n;
}

foreach my $signal (@signals) {

 SKIP: {
    if (!exists $SIG{$signal} && !sig_exists($signal)) {
      skip "Signal $signal doesn't exist in $^O $]", 3;
    }
  
    my ($basic, $module, @unlink) = test_default_behavior_for_signal($signal);

    if ($basic->{xpid} != 0 && $module->{xpid} == 0
	&& $Signals::XSIG::Default::DEFAULT_BEHAVIOR{$signal} eq 'SUSPEND') {

      push @failed, $signal;
      diag "expected $^O to suspend on SIG$signal, but it didn't";
      skip "expected $^O to suspend on SIG$signal, but it didn't", 3;

    }
    if (!ok_test_behavior($basic, $module, $signal)) {
      push @failed, $signal;
    }
    unlink @unlink if @unlink && @ARGV==0;
  }
}

if (@failed && @ARGV == 0) {
  on_failure_recommend_spike(@failed);
}