1#!/usr/bin/perl -w
2
3use strict;
4use warnings;
5
6use Test2::Util qw/CAN_THREAD/;
7BEGIN {
8    unless(CAN_THREAD) {
9        require Test::More;
10        Test::More->import(skip_all => "threads are not supported");
11    }
12}
13use threads;
14
15use Test::More;
16
17subtest 'simple test with threads on' => sub {
18    is( 1+1, 2,   "simple test" );
19    is( "a", "a", "another simple test" );
20};
21
22pass("Parent retains sharedness");
23
24done_testing(2);
25