antlr-3.4/runtime/Perl5/t/classes/Test/ANTLR/Runtime/Exception.pm

package Test::ANTLR::Runtime::Exception;

use Test::More;

use Moose;

BEGIN { extends 'My::Test::Class' }

sub constructor : Test(1) {
    my ($self) = @_;
    my $ex = $self->class->new();
    is $ex->message, '';
}

sub constructor_message : Test(1) {
    my ($self) = @_;
    my $ex = $self->class->new({ message => 'test error message' });
    is $ex->message, 'test error message';
}

sub throw : Test(1) {
    my ($self) = @_;
    eval {
        $self->class->throw(message => 'test error message');
    };
    my $ex = $self->class->caught();
    is $ex->message, 'test error message';
}

no Moose;
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
1;