d9a591fcfb4301c3652fb796a644a371a14e07ab
[perl.git] / lib / Test / Simple / t / fork.t
1 #!/usr/bin/perl -w
2 # $Id: /mirror/googlecode/test-more/t/fork.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
3
4 BEGIN {
5     if( $ENV{PERL_CORE} ) {
6         chdir 't';
7         @INC = '../lib';
8     }
9 }
10
11 use Test::More;
12 use Config;
13
14 my $Can_Fork = $Config{d_fork} ||
15                (($^O eq 'MSWin32' || $^O eq 'NetWare') and
16                 $Config{useithreads} and 
17                 $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
18                );
19
20 if( !$Can_Fork ) {
21     plan skip_all => "This system cannot fork";
22 }
23 else {
24     plan tests => 1;
25 }
26
27 if( fork ) { # parent
28     pass("Only the parent should process the ending, not the child");
29 }
30 else {
31     exit;   # child
32 }
33