Help language development. Donate to The Perl Foundation

P5__FILE__ cpan:ELIZABETH last updated on 2020-11-12

run-tests
say run(<raku --version>, :out).out.slurp;

say "Testing {"dist.ini".IO.lines.head.substr(7)}";

my $failed = 0;
my $done   = 0;
for "t".IO.dir(:test(*.ends-with: '.t' | '.rakutest')).map(*.Str).sort {
    say "=== $_";
    my $proc = run "raku", "--ll-exception", "-Ilib", $_, :out, :merge;
    if $proc {
        $proc.out.slurp;
    }
    else {
        $failed++;
        say $proc.out.slurp || "No output received, exit-code $proc.exitcode()";
    }
    $done++;
}

say $failed ?? "FAILED: $failed of $done" !! "\nALL {$done if $done > 1} OK";
exit $failed

# vim: expandtab shiftwidth=4