[perl5.git] / cpan / autodie / t / crickey.t

#!/usr/bin/perl -w
use strict;
use FindBin;
use Test::More 'no_plan';

use lib "$FindBin::Bin/lib";

use constant NO_SUCH_FILE => "crickey_mate_this_file_isnt_here_either";

use autodie::test::au qw(open);

eval {
    open(my $fh, '<', NO_SUCH_FILE);
};

ok(my $e = $@, 'Strewth!  autodie::test::au should throw an exception on failure');

isa_ok($e, 'autodie::test::au::exception',
    'Yeah mate, that should be our test exception.');

like($e, qr/time for a beer/, "Time for a beer mate?");

like( eval { $e->time_for_a_beer; },
    qr/time for a beer/, "It's always a good time for a beer."
);

ok($e->matches('open'), "Should be a fair dinkum error from open");
Commit	Line	Data
0b09a93a PF	1	#!/usr/bin/perl -w
	2	use strict;
	3	use FindBin;
	4	use Test::More 'no_plan';
	5
	6	use lib "$FindBin::Bin/lib";
	7
	8	use constant NO_SUCH_FILE => "crickey_mate_this_file_isnt_here_either";
	9
	10	use autodie::test::au qw(open);
	11
	12	eval {
	13	open(my $fh, '<', NO_SUCH_FILE);
	14	};
	15
	16	ok(my $e = $@, 'Strewth! autodie::test::au should throw an exception on failure');
	17
	18	isa_ok($e, 'autodie::test::au::exception',
	19	'Yeah mate, that should be our test exception.');
	20
	21	like($e, qr/time for a beer/, "Time for a beer mate?");
	22
	23	like( eval { $e->time_for_a_beer; },
	24	qr/time for a beer/, "It's always a good time for a beer."
	25	);
	26
	27	ok($e->matches('open'), "Should be a fair dinkum error from open");