use lib 'lib';
use TestML::Compiler;
use YAML::XS;
use IO::All;
for my $path (glob('t/testml/*.tml')) {
(my $file = $path) =~ s!.*/!!;
next if $file eq 'comments.tml';
next if $file eq 'data.tml';
next if $file eq 'external1.tml';
next if $file eq 'external2.tml';
next if $file eq 'syntax.tml';
next if $file eq 'topic.tml';
print $file,"\n";
my $function = TestML::Compiler->new->compile($path);
io("ast/$file")->print(Dump($function));
}