1#!/usr/bin/perl -w 2use strict; 3use warnings; 4 5use Test2::Util qw/CAN_FORK/; 6BEGIN { 7 unless(CAN_FORK) { 8 require Test::More; 9 Test::More->import(skip_all => "fork is not supported"); 10 } 11} 12 13BEGIN { 14 if( $ENV{PERL_CORE} ) { 15 chdir 't'; 16 @INC = '../lib'; 17 } 18} 19 20use Test::More; 21plan tests => 1; 22 23if( fork ) { # parent 24 pass("Only the parent should process the ending, not the child"); 25} 26else { 27 exit; # child 28} 29 30