gnu/usr.bin/perl/cpan/autodie/t/eval_error.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More 'no_plan';
use autodie;

use constant NO_SUCH_FILE => 'this_file_had_better_not_exist';
use constant MAGIC_STRING => 'xyzzy';

# Opening an eval clears $@, so it's important that we set it
# inside the eval block to see if it's successfully captured.

eval {
    $@ = MAGIC_STRING;
    is($@, MAGIC_STRING, 'Sanity check on start conditions');
    open(my $fh, '<', NO_SUCH_FILE);
};

isa_ok($@, 'autodie::exception');
is($@->eval_error, MAGIC_STRING, 'Previous $@ should be captured');