diff --git a/t/move.t b/t/move.t index 6779517..4ef0cbc 100644 --- a/t/move.t +++ b/t/move.t @@ -1,4 +1,5 @@ use strict; +use Config; use Filesys::Notify::Simple; use Test::More; use Test::SharedFork; @@ -6,6 +7,12 @@ use File::Temp qw( tempdir ); use FindBin; +plan skip_all => "fork not supported on this platform" + unless $Config::Config{d_fork} || $Config::Config{d_pseudofork} || + (($^O eq 'MSWin32' || $^O eq 'NetWare') and + $Config::Config{useithreads} and + $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/); + plan tests => 2; my $dir = tempdir( DIR => "$FindBin::Bin/x" ); diff --git a/t/rm_create.t b/t/rm_create.t index 55dfd37..41ce486 100644 --- a/t/rm_create.t +++ b/t/rm_create.t @@ -1,4 +1,5 @@ use strict; +use Config; use Filesys::Notify::Simple; use Test::More; use Test::SharedFork; @@ -7,6 +8,11 @@ use File::Temp qw( tempdir ); my $dir = tempdir( DIR => "$FindBin::Bin/x" ); +plan skip_all => "fork not supported on this platform" + unless $Config::Config{d_fork} || $Config::Config{d_pseudofork} || + (($^O eq 'MSWin32' || $^O eq 'NetWare') and + $Config::Config{useithreads} and + $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/); plan tests => 2;