✏️ 正在编辑: buffered_subtest_plan_buffered.t
路径:
/usr/share/doc/perl-Test-Simple/t/regression/buffered_subtest_plan_buffered.t
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
use Test2::Tools::Tiny; use strict; use warnings; use Test2::API qw/intercept test2_stack/; use Data::Dumper; sub hide_buffered { 0 } sub write { my $self = shift; my ($e) = @_; push @{$self->{events}} => $e; } sub finalize { } my $events; intercept { my $hub = test2_stack()->top; my $formatter = bless({}, __PACKAGE__); $hub->format($formatter); tests xxx => sub { ok(1, "pass"); }; $events = $formatter->{events}; }; pop @$events; for my $e (@$events) { ok($e->trace->buffered, "Buffered events are all listed as buffered") || diag(Dumper($e)); } done_testing;
💾 保存文件
← 返回文件管理器