|
Packit |
6427f8 |
#!/usr/bin/perl -w
|
|
Packit |
6427f8 |
use strict;
|
|
Packit |
6427f8 |
use Test::More 'no_plan';
|
|
Packit |
6427f8 |
use constant NO_SUCH_FILE => "this_file_had_better_not_exist";
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
eval {
|
|
Packit |
6427f8 |
use autodie qw(open open open);
|
|
Packit |
6427f8 |
open(my $fh, '<', NO_SUCH_FILE);
|
|
Packit |
6427f8 |
};
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
isa_ok($@,q{autodie::exception});
|
|
Packit |
6427f8 |
ok($@->matches('open'),"Exception from open");
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
eval {
|
|
Packit |
6427f8 |
open(my $fh, '<', NO_SUCH_FILE);
|
|
Packit |
6427f8 |
};
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
is($@,"","Repeated autodie should not leak");
|
|
Packit |
6427f8 |
|