✏️ 正在编辑: capture.t
路径:
/usr/share/doc/perl-Test-Simple/t/Legacy/capture.t
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
use strict; use Test::Tester; my $Test = Test::Builder->new; $Test->plan(tests => 3); my $cap; $cap = Test::Tester->capture; { no warnings 'redefine'; sub Test::Tester::find_run_tests { return 0}; } local $Test::Builder::Level = 0; { my $cur = $cap->current_test; $Test->is_num($cur, 0, "current test"); eval {$cap->current_test(2)}; $Test->ok($@, "can't set test_num"); } { $cap->ok(1, "a test"); my @res = $cap->details; $Test->is_num(scalar @res, 1, "res count"); }
💾 保存文件
← 返回文件管理器