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; |