Commit | Line | Data |
---|---|---|
1612b73d | 1 | use strict; |
2 | use warnings FATAL => 'all'; | |
3 | use Test::More qw(no_plan); | |
4 | ||
5 | chdir('rakudo-star/rakudo'); | |
6 | ||
7 | sub run_test { | |
8 | my ($file) = @_; | |
9 | cmp_ok(system($^X, 't/harness', $file), '==', 0, "${file} passed"); | |
10 | } | |
11 | ||
12 | run_test($_) for <t/00-parrot/*.t>; | |
13 | ||
14 | run_test($_) for <t/01-rakudo/*.t>; |