?????????? ????????? - ??????????????? - /home/.cpan/build/Test-Fatal-0.017-0/t/todo.t
???????
#!/usr/bin/perl use strict; use Test::Builder::Tester tests => 4; use Test::More 0.65; use Test::Fatal; my $file = __FILE__; if (!eval { Test::Builder::Tester->VERSION(1.20) }) { # Test::More 0.96 my $builder = Test::Builder->new; no warnings 'redefine'; *test_out = sub { Test::Builder::Tester::test_out(@_); $builder->todo_output($builder->output); } } { my $line = __LINE__ + 13; my $out = <<FAIL; not ok 1 - succeeded # TODO unimplemented # Failed (TODO) test 'succeeded' # at $file line $line. # got: '0' # expected: '1' ok 2 - no exceptions # TODO unimplemented FAIL chomp($out); test_out($out); { local $TODO = "unimplemented"; is(exception { is(0, 1, "succeeded") }, undef, "no exceptions"); } test_test( "\$TODO works" ); } { my $line = __LINE__ + 13; my $out = <<FAIL; not ok 1 - succeeded # TODO unimplemented # Failed (TODO) test 'succeeded' # at $file line $line. # got: '0' # expected: '1' ok 2 - no exceptions # TODO unimplemented FAIL chomp($out); test_out($out); { local $TODO = "unimplemented"; stuff_is_ok(0, 1); } test_test( "\$TODO works" ); sub stuff_is_ok { my ($got, $expected) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; is( exception { is($got, $expected, "succeeded") }, undef, "no exceptions" ); } } { my $line = __LINE__ + 13; my $out = <<FAIL; not ok 1 - succeeded # TODO unimplemented # Failed (TODO) test 'succeeded' # at $file line $line. # got: '0' # expected: '1' ok 2 - no exceptions # TODO unimplemented FAIL chomp($out); test_out($out); { local $TODO = "unimplemented"; stuff_is_ok2(0, 1); } test_test( "\$TODO works" ); sub stuff_is_ok2 { my ($got, $expected) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; _stuff_is_ok2(@_); } sub _stuff_is_ok2 { my ($got, $expected) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; is( exception { is($got, $expected, "succeeded") }, undef, "no exceptions" ); } } { my $line = __LINE__ + 14; my $out = <<FAIL; not ok 1 - succeeded # TODO unimplemented # Failed (TODO) test 'succeeded' # at $file line $line. # got: '0' # expected: '1' ok 2 - no exceptions # TODO unimplemented ok 3 - level 1 # TODO unimplemented FAIL chomp($out); test_out($out); { local $TODO = "unimplemented"; multi_level_ok(0, 1); } test_test( "\$TODO works" ); sub multi_level_ok { my ($got, $expected) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; is( exception { _multi_level_ok($got, $expected) }, undef, "level 1" ); } sub _multi_level_ok { my ($got, $expected) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; is( exception { is($got, $expected, "succeeded") }, undef, "no exceptions" ); } }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????