Blame t/ecb-standalone.t

Packit 485bc7
use strict;
Packit 485bc7
use warnings;
Packit 485bc7
Packit 485bc7
use Test::More;
Packit 485bc7
Packit 485bc7
{
Packit 485bc7
    package MyE;
Packit 485bc7
Packit 485bc7
    use strict;
Packit 485bc7
    use warnings;
Packit 485bc7
Packit 485bc7
    use base 'Exception::Class::Base';
Packit 485bc7
}
Packit 485bc7
Packit 485bc7
## no critic (ErrorHandling::RequireCheckingReturnValueOfEval)
Packit 485bc7
eval { MyE->throw() };
Packit 485bc7
isa_ok( $@, 'MyE', 'can throw MyE without loading Exception::Class' );
Packit 485bc7
Packit 485bc7
my $caught = MyE->caught();
Packit 485bc7
ok( $caught, 'caught MyE exception' );
Packit 485bc7
Packit 485bc7
done_testing();