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
|
#!/usr/bin/perl -w
use strict;
use Test::More 'no_plan';
sub mytest {
return $_[0];
}
is(mytest(q{foo}),q{foo},"Mytest returns input");
my $return = eval { mytest(undef); };
ok(!defined($return), "mytest returns undef without autodie");
is($@,"","Mytest doesn't throw an exception without autodie");
$return = eval {
use autodie qw(mytest);
mytest('foo');
};
is($return,'foo',"Mytest returns input with autodie");
is($@,"","No error should be thrown");
$return = eval {
use autodie qw(mytest);
mytest(undef);
};
isa_ok($@,'autodie::exception',"autodie mytest/undef throws exception");
# We set initial values here because we're expecting $data to be
# changed to undef later on. Having it as undef to begin with means
# we can't see mytest(undef) working correctly.
my ($data, $data2) = (1,1);
eval {
use autodie qw(mytest);
{
no autodie qw(mytest);
$data = mytest(undef);
$data2 = mytest('foo');
}
};
is($@,"","no autodie can counter use autodie for user subs");
ok(!defined($data), "mytest(undef) should return undef");
is($data2, "foo", "mytest(foo) should return foo");
eval {
mytest(undef);
};
is($@,"","No lingering failure effects");
$return = eval {
mytest("bar");
};
is($return,"bar","No lingering return effects");
|
