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
|
#!/usr/bin/perl -w
use strict;
use Test::More 'no_plan';
# These are a bunch of general tests for working with files and
# filehandles.
my $r = "default";
eval {
no warnings;
$r = binmode(FOO);
};
is($@,"","Sanity: binmode(FOO) doesn't usually throw exceptions");
is($r,undef,"Sanity: binmode(FOO) returns undef");
eval {
use autodie qw(binmode);
no warnings;
binmode(FOO);
};
ok($@, "autodie qw(binmode) should cause failing binmode to die.");
isa_ok($@,"autodie::exception", "binmode exceptions are in autodie::exception");
eval {
use autodie;
no warnings;
binmode(FOO);
};
ok($@, "autodie (default) should cause failing binmode to die.");
|
