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