-#!./perl -Tw
-
-# Tests of threads::shared's behavior when threads are disabled.
+use strict;
+use warnings;
BEGIN {
- chdir 't';
- @INC = '../lib';
+ if ($ENV{'PERL_CORE'}){
+ chdir 't';
+ unshift @INC, '../lib';
+ }
}
-# Can't use Test::More, it turns threads on.
use Test;
plan tests => 31;
use threads::shared;
-# Make sure threads are really off.
+### Start of Testing ###
+
+# Make sure threads are really off
ok( !$INC{"threads.pm"} );
# Check each faked function.
lock(@array);
ok( "@array", "1 2 3 4" );
}
+
+exit(0);
+
+# EOF