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