use strict;
use warnings;
-use Config qw/%Config/;
-
-BEGIN {
- if (!$Config{useithreads}) {
- require Test::More;
- Test::More->import;
- plan(skip_all => 'This perl wasn\'t built to support threads');
- }
-}
-
-use threads;
+use lib 't/lib';
+use autovivification::TestThreads;
-use Test::More;
-
-BEGIN {
- require autovivification;
- if (autovivification::A_THREADSAFE()) {
- plan tests => 1;
- defined and diag "Using threads $_" for $threads::VERSION;
- } else {
- plan skip_all => 'This autovivification isn\'t thread safe';
- }
-}
+use Test::Leaner tests => 1;
sub run_perl {
my $code = shift;
SKIP:
{
- skip 'Fails on 5.8.2 and lower' => 1 if $] <= 5.008002;
+ skip 'Fails on 5.8.2 and lower' => 1 if "$]" <= 5.008002;
my $status = run_perl <<' RUN';
my $code = 1 + 2 + 4;