#!/usr/bin/env raku
use v6;


use lib 'lib';
use Grammar::Tracer;
use Data::Dump::Tree;
use CppGrammar::lexer;

my @tests = (
    [
        "00'0'0l",
        -> { <DigitSequence><Floatingsuffix> },
    ],
);

sub MAIN {
    for @tests -> $test {
        my $input = $test[0];
        my $block = $test[1];

        #ddt $block;

        grammar G does CppLexerGrammar {
            rule TOP() { $block() };

        };
        G.parse($input);
        ddt $/;
    }
}