handle successful case of compiling C++ script

rakudo · Sep 14, 2015 · 63077a5 · 63077a5
1 parent 1bd7278
commit 63077a5
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/04-nativecall/CompileTestLib.pm b/t/04-nativecall/CompileTestLib.pm
@@ -48,7 +48,12 @@ sub compile_cpp_test_lib($name) is export {
     for @cmds -> $cmd {
         my $handle = shell("$cmd 2>&1", :out);
         my $output = $handle.out.slurp-rest;
-        @fails.push: "Running '$cmd':\n$output" if $handle.out.close.status;
+        if $handle.out.close.status {
+            @fails.push: "Running '$cmd':\n$output"
+        }
+        else {
+            last
+        }
     }
     fail @fails.join('=' x 80 ~ "\n") if @fails;
 }