Commit | Line | Data |
---|---|---|
60ffb308 | 1 | #!/usr/bin/perl -w |
2 | ||
3 | BEGIN { | |
4 | if( $ENV{PERL_CORE} ) { | |
5 | chdir 't'; | |
6 | @INC = '../lib'; | |
7 | } | |
8 | } | |
9 | ||
10 | use Test::More; | |
11 | use Config; | |
12 | ||
13 | if( !$Config{d_fork} ) { | |
14 | plan skip_all => "This system cannot fork"; | |
15 | } | |
16 | else { | |
17 | plan tests => 1; | |
18 | } | |
19 | ||
20 | if( fork ) { # parent | |
21 | pass("Only the parent should process the ending, not the child"); | |
22 | } | |
23 | else { | |
24 | exit; # child | |
25 | } |