[perl5.git] / cpan / Test-Simple / t / subtest / die.t

#!/usr/bin/perl -w

# What happens when a subtest dies?

use lib 't/lib';

use strict;
use Test::Builder;
use Test::Builder::NoOutput;

my $Test = Test::Builder->new;

{
    my $tb = Test::Builder::NoOutput->create;

    $tb->ok(1);

    $Test->ok( !eval {
        $tb->subtest("death" => sub {
            die "Death in the subtest";
        });
        1;
    });
    $Test->like( $@, qr/^Death in the subtest at $0 line /);

    $Test->ok( !$tb->parent, "the parent object is restored after a die" );
}


$Test->done_testing();
Commit	Line	Data
2c4d5b9b SH	1	#!/usr/bin/perl -w
	2
	3	# What happens when a subtest dies?
	4
	5	use lib 't/lib';
	6
	7	use strict;
	8	use Test::Builder;
	9	use Test::Builder::NoOutput;
	10
	11	my $Test = Test::Builder->new;
	12
	13	{
	14	my $tb = Test::Builder::NoOutput->create;
	15
	16	$tb->ok(1);
	17
	18	$Test->ok( !eval {
	19	$tb->subtest("death" => sub {
	20	die "Death in the subtest";
	21	});
	22	1;
	23	});
	24	$Test->like( $@, qr/^Death in the subtest at $0 line /);
	25
	26	$Test->ok( !$tb->parent, "the parent object is restored after a die" );
	27	}
	28
	29
	30	$Test->done_testing();