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
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/perl -w
use strict;
use Test::More qw(no_plan);
use constant ERROR_REGEXP => qr{Can't dbmopen\(%hash, 'foo/bar/baz', 0666\):};
my $return = "default";
eval {
$return = dbmopen(my %foo, "foo/bar/baz", 0666);
};
ok(!$return, "Sanity: dbmopen usually returns false on failure");
ok(!$@, "Sanity: dbmopen doesn't usually throw exceptions");
eval {
use autodie;
dbmopen(my %foo, "foo/bar/baz", 0666);
};
ok($@, "autodie allows dbmopen to throw errors.");
isa_ok($@, "autodie::exception", "... errors are of the correct type");
like($@, ERROR_REGEXP, "Message should include number in octal, not decimal");
eval {
use autodie;
my %bar = ( foo => 1, bar => 2 );
dbmopen(%bar, "foo/bar/baz", 0666);
};
like($@, ERROR_REGEXP, "Correct formatting even with non-empty dbmopen hash");
|
