#!/usr/bin/perl -w

use strict;

use warnings;

use autodie;

use Test::More 'no_plan';

use FindBin qw($Bin);

use lib "$Bin/lib";

use Caller_helper;

use constant NO_SUCH_FILE => "kiwifoo_is_so_much_fun";

eval {

    foo();

};

isa_ok($@, 'autodie::exception');

is($@->caller, 'main::foo', "Caller should be main::foo");

sub foo {

    use autodie;

    open(my $fh, '<', NO_SUCH_FILE);

}

eval {

    Caller_helper::foo();

};

isa_ok($@, 'autodie::exception');

is($@->line,     $Caller_helper::line,     "External line number check");

is($@->file,     $INC{"Caller_helper.pm"}, "External filename check");

is($@->package, "Caller_helper",           "External package check");

is($@->caller,  "Caller_helper::foo",      "External subname check");