Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.26
Domains : 74 Domain
User : georgeto
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-Test-Simple /
t /
Test2 /
behavior /
Delete
Unzip
Name
Size
Permission
Date
Action
Formatter.t
1.64
KB
-rw-r--r--
2020-10-22 03:10
Subtest_buffer_formatter.t
2.62
KB
-rw-r--r--
2020-10-22 03:10
Subtest_callback.t
906
B
-rw-r--r--
2020-10-22 03:10
Subtest_events.t
441
B
-rw-r--r--
2020-10-22 03:10
Subtest_plan.t
355
B
-rw-r--r--
2020-10-22 03:10
Subtest_todo.t
932
B
-rw-r--r--
2020-10-22 03:10
Taint.t
356
B
-rw-r--r--
2020-10-22 03:10
disable_ipc_a.t
203
B
-rw-r--r--
2020-10-22 03:10
disable_ipc_b.t
219
B
-rw-r--r--
2020-10-22 03:10
disable_ipc_c.t
256
B
-rw-r--r--
2020-10-22 03:10
disable_ipc_d.t
458
B
-rw-r--r--
2020-10-22 03:10
err_var.t
177
B
-rw-r--r--
2020-10-22 03:10
init_croak.t
589
B
-rw-r--r--
2020-10-22 03:10
intercept.t
1.09
KB
-rw-r--r--
2020-10-22 03:10
ipc_wait_timeout.t
2.3
KB
-rw-r--r--
2020-10-22 03:10
nested_context_exception.t
2.09
KB
-rw-r--r--
2020-10-22 03:10
no_load_api.t
1.52
KB
-rw-r--r--
2020-10-22 03:10
run_subtest_inherit.t
2.21
KB
-rw-r--r--
2020-10-22 03:10
special_names.t
1.28
KB
-rw-r--r--
2020-10-22 03:10
subtest_bailout.t
1.15
KB
-rw-r--r--
2020-10-22 03:10
trace_signature.t
1.47
KB
-rw-r--r--
2020-10-22 03:10
uuid.t
3.33
KB
-rw-r--r--
2020-10-22 03:10
Save
Rename
use strict; use warnings; use Test2::Tools::Tiny; use Test2::API qw/run_subtest intercept/; my $events = intercept { todo 'testing todo', sub { run_subtest( 'fails in todo', sub { ok(1, 'first passes'); ok(0, 'second fails'); } ); }; }; ok($events->[1], 'Test2::Event::Subtest', 'subtest ran'); ok($events->[1]->effective_pass, 'Test2::Event::Subtest', 'subtest effective_pass is true'); ok($events->[1]->todo, 'testing todo', 'subtest todo is set to expected value'); my $subevents = $events->[1]->subevents; is(scalar @$subevents, 3, 'got subevents in the subtest'); ok($subevents->[0]->facets->{assert}->pass, 'first event passed'); ok(!$subevents->[1]->facets->{assert}->pass, 'second event failed'); ok(!$subevents->[1]->causes_fail, 'second event does not cause failure'); done_testing;