blob: 91a7d7837af534d56f7ceff4e927dca4f9804ed5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/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");
|