Skip to content

Commit

Permalink
small cleanups in the harness
Browse files Browse the repository at this point in the history
  • Loading branch information
Whiteknight committed Aug 14, 2010
1 parent 65bf0ac commit c2cc2a9
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions t/harness
Expand Up @@ -2,6 +2,7 @@

INIT {
pir::load_bytecode('library/kakapo_full.pbc');
Nqp::compile_file('t/testlib/matrixtest.nqp');
}

MAIN();
Expand All @@ -12,7 +13,6 @@ MAIN();
# verbose mode

sub MAIN () {
Nqp::compile_file('t/testlib/matrixtest.nqp');
my $total_passed := 0;
my $total_failed := 0;
my $total_files := 0;
Expand Down Expand Up @@ -80,14 +80,15 @@ sub MAIN () {
}
if $total_failed {
pir::say("FAILED " ~ $total_failed ~ '/' ~ ($total_passed+$total_failed));
pir::exit(1);
pir::exit(1);
} elsif $failed_files {
pir::say("FAILED " ~ $failed_files ~ " files, PASSED " ~ $total_passed ~ ' tests');
} else {
pir::say("PASSED " ~ $total_passed ~ ' tests in ' ~ $total_files ~ ' files');
}
}


sub get_all_tests(*@dirs) {
my $fs := FileSystem.instance;
my @files := Parrot::new("ResizableStringArray");
Expand Down

0 comments on commit c2cc2a9

Please sign in to comment.