░▒▓████████████████████████████████▓▒░ ░▒▓█ ▓▒░ ░▒▓█ ~ S W A M P ~ ▓▒░ ░▒▓█ ▓▒░ ░▒▓████████████████████████████████▓▒░
vps.doorgans.com
LOCATION:
/usr/share/doc/perl-Test-Simple/t/Legacy/Regression
☗ ROOT
↻ REFRESH
✎ CARVE FLESH
EDITING: 683_thread_todo.t
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;
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📄 637.t
T
1.2 KB
2018-03-30 05:53
EDIT
📄 683_thread_todo.t
T
428 B
2018-03-30 05:53
EDIT
📄 6_cmp_ok.t
T
265 B
2018-03-30 05:53
EDIT
📄 736_use_ok.t
T
782 B
2018-03-30 05:53
EDIT
📄 789-read-only.t
T
672 B
2018-03-30 05:53
EDIT