blob: e6d04500e007f5227fabc9681c496653aab5b81f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
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;
|