### ----------------------------------------------------
### -- C::Parser
### -- Licenses: LGPL-3.0-or-later
### -- Authors: Andrew Robbins
### -- File: t/05_modern.rakutest
### ----------------------------------------------------
use Test;

use C::AST;
use C::Parser;

plan 1;

our $source = q<<<
    int printf(const char * restrict, ...);
    
    int main(int argc, char * argv[]) {
        printf("Hello %s!", argv[1]);
        return 0;
    }
>>>;

{
    my $match = C::Parser.parse($source);
    isa-ok($match, C::AST::TransUnit, 'gives a TransUnit');
}

# vim: expandtab shiftwidth=4


