tests/opr/softsig-t

   1 #!/usr/bin/perl
   2 #
   3 # Copyright (c) 2010 Your File System Inc. All rights reserved.
   4 #
   5 # Redistribution and use in source and binary forms, with or without
   6 # modification, are permitted provided that the following conditions
   7 # are met:
   8 # 1. Redistributions of source code must retain the above copyright
   9 #    notice, this list of conditions and the following disclaimer.
  10 # 2. Redistributions in binary form must reproduce the above copyright
  11 #    notice, this list of conditions and the following disclaimer in the
  12 #    documentation and/or other materials provided with the distribution.
  13 #
  14 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND ANY EXPRESS OR
  15 # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  16 # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  17 # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  18 # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  19 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  20 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  21 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  22 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  23 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  24
  25 use strict;
  26 use warnings;
  27 use Test::More tests => 11;
  28 use IO::File;
  29 use POSIX qw(:signal_h);
  30 use File::Temp;
  31 use FindBin qw($Bin);
  32
  33 # Start up our test process, and send it various signals. Check that these
  34 # signals make it to it correctly, and are reported on the command line.
  35 my $softsig_helper = $Bin . "/softsig-helper";
  36 my $pid=open(HELPER, "$softsig_helper |")
  37     or die "Couldn't start test helper.";
  38
  39 # Wait for softsig to start up.
  40 is(<HELPER>, "Ready\n");
  41
  42 # Check that a load of common signals are correctly trapped.
  43
  44 kill 'INT', $pid;
  45 is(<HELPER>, "Received INT\n");
  46
  47 kill 'HUP', $pid;
  48 is(<HELPER>, "Received HUP\n");
  49
  50 kill 'QUIT', $pid;
  51 is(<HELPER>, "Received QUIT\n");
  52
  53 kill 'ALRM', $pid;
  54 is(<HELPER>, "Received ALRM\n");
  55
  56 kill 'TERM', $pid;
  57 is(<HELPER>, "Received TERM\n");
  58
  59 kill 'USR1', $pid;
  60 is(<HELPER>, "Received USR1\n");
  61
  62 kill 'USR2', $pid;
  63 is(<HELPER>, "Received USR2\n");
  64
  65
  66 # Check that we can actually stop the process with a kill.
  67
  68 kill 'KILL', $pid;
  69 close(HELPER);
  70 is($?, SIGKILL, "Helper exited on KILL signal.");
  71
  72 # Check that an internal segmentation fault kills the process.
  73
  74 $pid = open(HELPER, "$softsig_helper -crash |")
  75     or die "Couldn't start test helper.";
  76 close(HELPER);
  77 is($? & 0x7f, SIGSEGV, "Helper exited on SEGV signal.");
  78
  79 # Check that an internal bus error kills the process.
  80 # Skip this test when running on ancient versions of Perl
  81 # which do not have SIGBUS defined.
  82 SKIP: {
  83     my $sigbus = eval "SIGBUS";
  84     skip("Skipping buserror test; SIGBUS constant is not defined.", 1) unless $sigbus;
  85
  86     my ($fh, $path) = mkstemp("/tmp/softsig-t_XXXXXX");
  87     $pid = open(HELPER, "$softsig_helper -buserror $path |")
  88         or die "Couldn't start test helper.";
  89     close(HELPER);
  90     is($? & 0x7f, $sigbus, "Helper exited on BUS signal.");
  91     $fh->close;
  92     unlink $path;
  93 }