[scpubgit/Rakudo-Star.git] / t / rakudo.t

use strict;
use warnings FATAL => 'all';
use Test::More qw(no_plan);

chdir('rakudo-star/rakudo');

sub run_test {
  my ($file) = @_;
  cmp_ok(system($^X, 't/harness', $file), '==', 0, "${file} passed");
}

run_test($_) for <t/00-parrot/*.t>;

run_test($_) for <t/01-rakudo/*.t>;
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>;