use Test::More 'no_plan';
use lib 'lib';
use Parse::Gnaw;
my $grammar;
# testing that we can use "match" function, which is equivalent to regexp m
$grammar = match('howdy', 'pardner');
ok($grammar->('howdy pardner')==1, "1 match");
ok($grammar->('why howdy there pardner ')==0, "5 no match");