handle succeeded C++ compilation even better

rakudo · Sep 14, 2015 · 54ce37c · 54ce37c
1 parent 00bd81b
commit 54ce37c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/t/04-nativecall/CompileTestLib.pm b/t/04-nativecall/CompileTestLib.pm
@@ -44,18 +44,19 @@ sub compile_cpp_test_lib($name) is export {
                    "clang++ -stdlib=libc++ --shared -fPIC -o $name.$so t/04-nativecall/$name.cpp",
     }
 
-    my @fails;
+    my (@fails, $succeeded);
     for @cmds -> $cmd {
         my $handle = shell("$cmd 2>&1", :out);
         my $output = $handle.out.slurp-rest;
         if $handle.out.close.status {
             @fails.push: "Running '$cmd':\n$output"
         }
         else {
+            $succeeded = 1;
             last
         }
     }
-    fail @fails.join('=' x 80 ~ "\n") if @fails;
+    fail @fails.join('=' x 80 ~ "\n") unless $succeeded;
 }
 
 END {