X7ROOT File Manager
Current Path:
/usr/share/doc/perl-Test-Simple/t/Legacy/Regression
usr
/
share
/
doc
/
perl-Test-Simple
/
t
/
Legacy
/
Regression
/
📁
..
📄
637.t
(1.23 KB)
📄
683_thread_todo.t
(428 B)
📄
6_cmp_ok.t
(265 B)
📄
736_use_ok.t
(782 B)
📄
789-read-only.t
(672 B)
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;
Upload File
Create Folder