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
37
38
39
40
41
42
43
44
45
46
47
48
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 9;
use constant ERROR_REGEXP => qr{Can't dbmopen\(%hash, 'foo/bar/baz', 0666\):};
use constant SINGLE_DIGIT_ERROR_REGEXP => qr{Can't dbmopen\(%hash, 'foo/bar/baz', 0010\):};
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;
dbmopen(my %foo, "foo/bar/baz", 8);
};
ok($@, "autodie allows dbmopen to throw errors.");
isa_ok($@, "autodie::exception", "... errors are of the correct type");
like($@, SINGLE_DIGIT_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");
|
