Файловый менеджер - Редактировать - /home/.cpan/build/Test-Warnings-0.033-0/t/03-subtest.t
�азад
use strict; use warnings; use Test::More 0.94; use Test::Warnings ':all'; is(1, 1, 'passing test'); my $had_no_warnings_called; { no strict 'refs'; my $orig = *{'Test::Warnings::had_no_warnings'}{CODE}; no warnings 'redefine'; *{'Test::Warnings::had_no_warnings'} = sub(;$) { $had_no_warnings_called++; $orig->(@_); }; } subtest 'here is a subtest' => sub { pass('another passing test'); # no test is added via the done_testing here done_testing; }; ok(!$had_no_warnings_called, 'had_no_warnings was not called via the subtest\'s done_testing'); done_testing; # we are done testing, so we need to signal our status via exit codes. exit($had_no_warnings_called ? 0 : 1);
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0.01 |
proxy
|
phpinfo
|
�а�тройка