✏️ 正在编辑: plan_is_noplan.t
路径:
/usr/share/doc/perl-Test-Simple/t/Legacy/plan_is_noplan.t
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
#!/usr/bin/perl -w BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = ('../lib', 'lib'); } else { unshift @INC, 't/lib'; } } use strict; use Test::More tests => 1; use Test::Builder::NoOutput; { my $tb = Test::Builder::NoOutput->create; $tb->plan('no_plan'); $tb->ok(1, 'foo'); $tb->_ending; is($tb->read, <<OUT); ok 1 - foo 1..1 OUT }
💾 保存文件
← 返回文件管理器