signal.t (231B)
1 use strict; 2 use Test; 3 4 BEGIN { plan tests => 1 } 5 6 use APND; 7 use JSON::XS; 8 9 my $server = APND::Server->new(); 10 my $socket = APND::Socket->new(); 11 12 $server->kill(); 13 ok($server->readline(), "/caught signal terminated: shutting down/");