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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
#!/usr/bin/perl -w
use strict;
use constant NO_SUCH_FILE => 'this_file_had_so_better_not_be_here';
use Test::More tests => 19;
{
use autodie qw(open);
eval { open(my $fh, '<', NO_SUCH_FILE); };
like($@,qr{Can't open},"autodie qw(open) in lexical scope");
no autodie qw(open);
eval { open(my $fh, '<', NO_SUCH_FILE); };
is($@,"","no autodie qw(open) in lexical scope");
use autodie qw(open);
eval { open(my $fh, '<', NO_SUCH_FILE); };
like($@,qr{Can't open},"autodie qw(open) in lexical scope 2");
no autodie; # Should turn off all autodying subs
eval { open(my $fh, '<', NO_SUCH_FILE); };
is($@,"","no autodie in lexical scope 2");
# Turn our pragma on one last time, so we can verify that
# falling out of this block reverts it back to previous
# behaviour.
use autodie qw(open);
eval { open(my $fh, '<', NO_SUCH_FILE); };
like($@,qr{Can't open},"autodie qw(open) in lexical scope 3");
}
eval { open(my $fh, '<', NO_SUCH_FILE); };
is($@,"","autodie open outside of lexical scope");
eval {
use autodie; # Should turn on everything
open(my $fh, '<', NO_SUCH_FILE);
};
like($@, qr{Can't open}, "vanilla use autodie turns on everything.");
eval { open(my $fh, '<', NO_SUCH_FILE); };
is($@,"","vanilla autodie cleans up");
{
use autodie qw(:io);
eval { open(my $fh, '<', NO_SUCH_FILE); };
like($@,qr{Can't open},"autodie q(:io) makes autodying open");
no autodie qw(:io);
eval { open(my $fh, '<', NO_SUCH_FILE); };
is($@,"", "no autodie qw(:io) disabled autodying open");
}
{
package Testing_autodie;
use Test::More;
use constant NO_SUCH_FILE => ::NO_SUCH_FILE();
use Fatal qw(open);
eval { open(my $fh, '<', NO_SUCH_FILE); };
like($@, qr{Can't open}, "Package fatal working");
is(ref $@,"","Old Fatal throws strings");
{
use autodie qw(open);
ok(1,"use autodie allowed with Fatal");
eval { open(my $fh, '<', NO_SUCH_FILE); };
like($@, qr{Can't open}, "autodie and Fatal works");
isa_ok($@, "autodie::exception"); # autodie throws real exceptions
}
eval { open(my $fh, '<', NO_SUCH_FILE); };
like($@, qr{Can't open}, "Package fatal working after autodie");
is(ref $@,"","Old Fatal throws strings after autodie");
eval " no autodie qw(open); ";
ok($@,"no autodie on Fataled sub an error.");
eval "
no autodie qw(close);
use Fatal 'close';
";
like($@, qr{not allowed}, "Using fatal after autodie is an error.");
}
|
