1package Test::ANTLR::Runtime::Exception;
2
3use Test::More;
4
5use Moose;
6
7BEGIN { extends 'My::Test::Class' }
8
9sub constructor : Test(1) {
10    my ($self) = @_;
11    my $ex = $self->class->new();
12    is $ex->message, '';
13}
14
15sub constructor_message : Test(1) {
16    my ($self) = @_;
17    my $ex = $self->class->new({ message => 'test error message' });
18    is $ex->message, 'test error message';
19}
20
21sub throw : Test(1) {
22    my ($self) = @_;
23    eval {
24        $self->class->throw(message => 'test error message');
25    };
26    my $ex = $self->class->caught();
27    is $ex->message, 'test error message';
28}
29
30no Moose;
31__PACKAGE__->meta->make_immutable(inline_constructor => 0);
321;
33