blob: 848a1d3036f1791da47e15430074598be49633d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package Test::ANTLR::Runtime::Lexer;
use Test::More;
use ANTLR::Runtime::ANTLRStringStream;
use ANTLR::Runtime::Lexer;
use Moose;
BEGIN { extends 'My::Test::Class' }
sub constructor : Test(1) {
my $input = ANTLR::Runtime::ANTLRStringStream->new({ input => 'ABC' });
my $lexer = ANTLR::Runtime::Lexer->new({ input => $input });
ok defined $lexer;
}
no Moose;
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
1;
|
