1 package Test::ANTLR::Runtime::Lexer; 2 3 use Test::More; 4 5 use ANTLR::Runtime::ANTLRStringStream; 6 use ANTLR::Runtime::Lexer; 7 8 use Moose; 9 10 BEGIN { extends 'My::Test::Class' } 11 12 sub 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 18 no Moose; 19 __PACKAGE__->meta->make_immutable(inline_constructor => 0); 20 1; 21
