view release on metacpan or  search on metacpan

t/02_fatal.t  view on Meta::CPAN

#-----------------------------------------------------------------------------

test_with_criticism_fatal();
test_without_criticism_fatal();

#-----------------------------------------------------------------------------

sub test_with_criticism_fatal {
    my $module_path = "$test_lib_dirname/WithCriticismFatal.pm";
    my ($eval_error, $stderr_text) = require_file_and_catch_errors($module_path);

    like($eval_error, qr/compilation aborted/, 'Load fails when criticism is fatal');
    like($stderr_text, qr/Code before strictures/, 'criticism emitted warnings');
}

sub test_without_criticism_fatal {
    my $module_path = "$test_lib_dirname/WithoutCriticismFatal.pm";
    my ($eval_error, $stderr_text) = require_file_and_catch_errors($module_path);

    is($eval_error, q{}, 'Load succeeds when criticism is not fatal');
    like($stderr_text, qr/Code before strictures/, 'criticism emitted warnings');
}

#-----------------------------------------------------------------------------

sub require_file_and_catch_errors {
    my ($filename_to_require) = @_;
    my $stderr_text = q{};