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