perl-5.16.2/cpan/parent/t/parent-returns-false.t

#!/usr/bin/perl -w
BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        chdir '../lib/parent';
        @INC = '..';
    }
}

use strict;
use Test::More tests => 2;
use lib 't/lib';

use vars qw($got_here);

my $res = eval q{
    package MyTest;

    use parent 'ReturnsFalse';

    $main::got_here++
};
my $error = $@;

is $got_here, undef, "The block did not run to its end.";
like $error, q{/^ReturnsFalse.pm did not return a true value at /}, "A module that returns a false value raises an error";