D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
thread-self
/
root
/
usr
/
share
/
doc
/
perl-Test-Simple
/
t
/
Legacy
/
Regression
/
Filename :
683_thread_todo.t
back
Copy
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;
Name
Size
Last Modified
Owner
Permissions
Actions
637.t
1.23
KB
March 30 2018 5:53:02
root
0644
683_thread_todo.t
0.418
KB
March 30 2018 5:53:02
root
0644
6_cmp_ok.t
0.259
KB
March 30 2018 5:53:02
root
0644
736_use_ok.t
0.764
KB
March 30 2018 5:53:02
root
0644
789-read-only.t
0.656
KB
March 30 2018 5:53:02
root
0644
2017 © D7net | D704T team