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 constant NO_SUCH_FILE => "this_file_or_dir_had_better_not_exist_XYZZY";
use Test::More tests => 17;
use Fatal qw(:io :void opendir);
eval { open FOO, "<".NO_SUCH_FILE }; # Two arg open
like($@, qr/^Can't open/, q{Package Fatal::open});
is(ref $@, "", "Regular fatal throws a string");
my $foo = 'FOO';
for ('$foo', "'$foo'", "*$foo", "\\*$foo") {
eval qq{ open $_, '<$0' };
is($@,"", "Open using filehandle named - $_");
like(scalar(<$foo>), qr{^#!.*/perl}, "File contents using - $_");
eval qq{ close FOO };
is($@,"", "Close filehandle using - $_");
}
eval { opendir FOO, NO_SUCH_FILE };
like($@, qr{^Can't open}, "Package :void Fatal::opendir");
eval { my $a = opendir FOO, NO_SUCH_FILE };
is($@, "", "Package :void Fatal::opendir in scalar context");
eval { Fatal->import(qw(print)) };
like(
$@, qr{Cannot make the non-overridable builtin print fatal},
"Can't override print"
);
|
