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