✏️ 正在编辑: 684-nested_todo_diag.t
路径:
/usr/share/doc/perl-Test-Simple/t/regression/684-nested_todo_diag.t
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
use Test::More; use strict; use warnings; use Test2::API qw/intercept/; my @events; intercept { local $TODO = "broken"; Test2::API::test2_stack->top->listen(sub { push @events => $_[1] }, inherit => 1); subtest foo => sub { subtest bar => sub { ok(0, 'oops'); }; }; }; my ($event) = grep { $_->trace->line == 16 && ref($_) eq 'Test::Builder::TodoDiag'} @events; ok($event, "nested todo diag on line 16 was changed to TodoDiag (STDOUT instead of STDERR)"); done_testing;
💾 保存文件
← 返回文件管理器