xref: /external/antlr/antlr-3.4/runtime/Perl5/t/classes/Test/ANTLR/Runtime/CommonToken.pm

package Test::ANTLR::Runtime::CommonToken;

use Test::More;

use ANTLR::Runtime::Token;

use Moose;

BEGIN { extends 'My::Test::Class' }

sub constructor : Test(1) {
    my $token = ANTLR::Runtime::CommonToken->new({
        input => undef,
        type => 0,
        channel => 0,
        start => 0,
        stop => 1,
    });
    is $token->get_start_index(), 0;
}

sub same : Test(2) {
    ok(ANTLR::Runtime::Token->EOF_TOKEN == ANTLR::Runtime::Token->EOF_TOKEN);
    ok(ANTLR::Runtime::Token->SKIP_TOKEN == ANTLR::Runtime::Token->SKIP_TOKEN);
}

sub not_same : Test(2) {
    ok !(ANTLR::Runtime::Token->EOF_TOKEN  != ANTLR::Runtime::Token->EOF_TOKEN);
    ok !(ANTLR::Runtime::Token->SKIP_TOKEN != ANTLR::Runtime::Token->SKIP_TOKEN);
}

sub bool_eof : Test(1) {
    ok !ANTLR::Runtime::Token->EOF_TOKEN;
}

no Moose;
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
1;