lib/Test/Simple/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 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 }