Name	Size	Mode	Actions
6_cmp_ok.t	265	0644	editdlrm
637.t	1260	0644	editdlrm
683_thread_todo.t	428	0644	editdlrm
736_use_ok.t	782	0644	editdlrm
789-read-only.t	672	0644	editdlrm

use strict; use warnings; use Test2::Util qw/CAN_THREAD/; BEGIN { unless(CAN_THREAD) { require Test::More; Test::More->import(skip_all => "threads are not supported"); } } use threads; use Test::More; my $t = threads->create( sub { local $TODO = "Some good reason"; fail "Crap"; 42; } ); is( $t->join, 42, "Thread exitted successfully" ); done_testing;