BEGIN {
chdir 't' if -d 't';
@INC = qw(../lib);
+ require './test.pl';
}
use strict;
print "1..0 # Skip: no getppid\n";
exit;
}
+ if ($ENV{PERL_CORE_MINITEST}) {
+ print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
+ exit 0;
+ }
+ eval 'use threads; use threads::shared';
+ plan tests => 3;
+ if ($@) {
+ fail("unable to load thread modules");
+ }
+ else {
+ pass("thread modules loaded");
+ }
}
-use threads;
-use threads::shared;
-
my ($pid, $ppid) = ($$, getppid());
my $pid2 : shared = 0;
my $ppid2 : shared = 0;
new threads( sub { ($pid2, $ppid2) = ($$, getppid()); } ) -> join();
-print "1..2\n";
-print "not " if $pid != $pid2; print "ok 1 - pids\n";
-print "not " if $ppid != $ppid2; print "ok 2 - ppids\n";
+is($pid, $pid2, 'pids');
+is($ppid, $ppid2, 'ppids');