git.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/fork.t

   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 my $Can_Fork = $Config{d_fork} ||
  14                (($^O eq 'MSWin32' || $^O eq 'NetWare') and
  15                 $Config{useithreads} and
  16                 $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
  17                );
  18
  19 if( !$Can_Fork ) {
  20     plan skip_all => "This system cannot fork";
  21 }
  22 else {
  23     plan tests => 1;
  24 }
  25
  26 if( fork ) { # parent
  27     pass("Only the parent should process the ending, not the child");
  28 }
  29 else {
  30     exit;   # child
  31 }
  32