Name	Size	Mode	Actions
disable_ipc_a.t	203	0644	editdlrm
disable_ipc_b.t	219	0644	editdlrm
disable_ipc_c.t	256	0644	editdlrm
disable_ipc_d.t	458	0644	editdlrm
err_var.t	177	0644	editdlrm
Formatter.t	1677	0644	editdlrm
init_croak.t	589	0644	editdlrm
intercept.t	1117	0644	editdlrm
ipc_wait_timeout.t	2351	0644	editdlrm
nested_context_exception.t	2139	0644	editdlrm
no_load_api.t	1561	0644	editdlrm
run_subtest_inherit.t	2264	0644	editdlrm
special_names.t	1314	0644	editdlrm
subtest_bailout.t	1182	0644	editdlrm
Subtest_buffer_formatter.t	2680	0644	editdlrm
Subtest_callback.t	906	0644	editdlrm
Subtest_events.t	441	0644	editdlrm
Subtest_plan.t	355	0644	editdlrm
Subtest_todo.t	932	0644	editdlrm
Taint.t	356	0644	editdlrm
trace_signature.t	1507	0644	editdlrm
uuid.t	3414	0644	editdlrm

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;