#!/usr/bin/perl
=pod
I had the bless() after a method call to _die. In older versions I called
Perl's die() so the location of the bless() didn't matter. Now it does.
Reported by Sagar Shah.
=cut
use Test::More 'no_plan';
BEGIN {
use Cwd;
use File::Spec;
my $file = File::Spec->catfile( qw(t lib setup_common.pl) );
require $file;
}
unlink '.releaserc';
ok( ! (-e '.releaserc'), 'The releaserc file is missing (good)' );
my $class = 'Module::Release';
use_ok( $class );
ok( ! eval{ close STDERR; $class->new() }, 'new() does not die (good)' );
like( $@, qr/Could not find conf file releaserc/,
'Missing conf file dies with the right error message' );