use strict;
use warnings;
use Test::More tests => 3 * 6;

mkdir 'tmp' if !-e 'tmp';

sub test {
    my $name = shift;
    my $code = shift;
    my $expected = shift;
    my $expected_count = shift;
    my $module = ucfirst($name);
    my $pmfile = "tmp/$module.pm";
    unlink $pmfile if -f $pmfile;
    is system("$^X -Ilib util/compile_p6grammar.pl -D examples/$name.grammar > $pmfile"), 0, "$name.grammar compiles okay";
    my $cmd = qq{$^X -Ilib -Itmp -M$module -e "$code"};
    my $out = `$cmd`;
    chomp($out);
    my $count = $out =~ s/^>>(?:BEGIN|END) \w+<<[^\n]+\n//gsm;
    is $out, $expected, "output of [ $cmd ] okay";
    is $count, $expected_count, 'debugging output count ok';
}

test('adder', "print Adder->add('3 + 23')->()", 26, 23);
test('adder', "print Adder->add('532+49')->()", 581, 23);

test('digits', "print Digits->count('49a3')->()", 3, 61);

test('langs', "print My::VB->def('Dim a, b As double')->{'My::C.var_list'}", 'a, b', 96);

test('langs2', "print My::VB->def('Dim a, b As double')->{'My::C.var_list'}", 'a, b ', 100);

test('Grammar', "print Pugs::Grammar::Rule->rule('a b')->to", 3, 515);