FM / t

/home/.cpan/build/Test-Fatal-0.016-0/t

Name	Size	Mode	Actions
00-report-prereqs.dd	1480	0644	edit dl rm
00-report-prereqs.t	5910	0644	edit dl rm
basic.t	1382	0644	edit dl rm
like-exception.t	900	0644	edit dl rm
todo.t	3250	0755	edit dl rm

Edit: /home/.cpan/build/Test-Fatal-0.016-0/t/todo.t (3250B)

#!/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"
        );
    }
}

#!/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 = <