File: signal.t

package info (click to toggle)
libfile-slurp-perl 9999.19-4
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 340 kB
  • ctags: 40
  • sloc: perl: 1,671; makefile: 39
file content (34 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
#!/usr/local/bin/perl -w

use strict ;
use File::Slurp qw(read_file);

use Carp ;
use Test::More ;

BEGIN { 
	if( $^O =~ '32' ) {
		plan skip_all => 'skip signal test on windows';
		exit ;
	}

	plan tests => 1 ;
}

$SIG{CHLD} = sub {};

pipe(IN, OUT);

print "forking\n";
if (!fork) {
   sleep 1;
   exit;
} 
if (!fork) {
   sleep 2;
   print OUT "success";
   exit;
}
close OUT;
my $data = read_file(\*IN);
is ($data, "success", "handle EINTR failed");