a2e6fc90c3d04506e17d220d12be2b470f533470
[openafs.git] / 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
81 my ($fh, $path) = mkstemp("/tmp/softsig-t_XXXXXX");
82 $pid = open(HELPER, "$softsig_helper -buserror $path |")
83     or die "Couldn't start test helper.";
84 close(HELPER);
85 is($? & 0x7f, SIGBUS, "Helper exited on BUS signal.");
86 $fh->close;
87 unlink $path;