t/rakudo.t

   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>;