File: signal.t

package info (click to toggle)
speedy-cgi-perl 2.22-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 1,128 kB
  • ctags: 890
  • sloc: ansic: 4,487; sh: 1,105; perl: 945; makefile: 89
file content (21 lines) | stat: -rwxr-xr-x 519 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 

# Bug: signals aren't reset between perl interpreter runs.

# The shutdown test script sets SIGTERM to ignore.  If we send a TERM signal
# to speedy after we run the test script, it should exit cleanly and call the
# shutdown handler.

print "1..1\n";

my $scr = 't/scripts/shutdown';
my $testf = "/tmp/speedy.shutdown_done.$$";

unlink $testf;
utime time, time, $scr;
sleep 2;
my $pid = `$ENV{SPEEDY} -- -r2 $scr $testf`;
sleep 1;
$pid && kill 15, $pid;
sleep 1;
print -f $testf ? "ok\n" : "not ok\n";
unlink $testf;