### ----------------------------------------------------
### -- Grammar::BNF
### -- Licenses: MIT
### -- Authors: Tadeusz Sośnierz
### -- File: t/slang.rakutest
### ----------------------------------------------------
use Test;
use Slang::BNF;

plan 2;

bnf-grammar A::B {
<foo> ::= "bar"
};

ok(A::B.parse("bar"), "Parse succeeds");
ok(!A::B.parse("far"), "Parse fails when it doesn't match");

# vim: expandtab shiftwidth=4


