complete-run: reorder code to make code flow more clear

diff --git a/testcases/complete-run.pl b/testcases/complete-run.pl
index 6a8f69b9d64464fa2a1114f39ebec2eba01dfc08..0122710618b50192708b6b453f90e52b455a1aea 100755 (executable)
--- a/testcases/complete-run.pl
+++ b/testcases/complete-run.pl
@@ -127,6 +127,30 @@ status_init(displays => \@displays, tests => $num);
 # test starts another test after completing.
 for (@displays) { $cv->begin; take_job($_) }
 
+$cv->recv;
+
+$aggregator->stop();
+
+# print empty lines to seperate failed tests from statuslines
+print "\n\n";
+
+for (@done) {
+    my ($test, $output) = @$_;
+    Log "output for $test:";
+    Log $output;
+    # print error messages of failed tests
+    say for $output =~ /^not ok.+\n+((?:^#.+\n)+)/mg
+}
+
+# 4: print summary
+$harness->summary($aggregator);
+
+close $log;
+
+kill(15, $_) for @childpids;
+
+exit 0;
+
 #
 # Takes a test from the beginning of @testfiles and runs it.
 #
@@ -198,28 +222,6 @@ sub take_job {
     }
 }
 
-$cv->recv;
-
-$aggregator->stop();
-
-# print empty lines to seperate failed tests from statuslines
-print "\n\n";
-
-for (@done) {
-    my ($test, $output) = @$_;
-    Log "output for $test:";
-    Log $output;
-    # print error messages of failed tests
-    say for $output =~ /^not ok.+\n+((?:^#.+\n)+)/mg
-}
-
-# 4: print summary
-$harness->summary($aggregator);
-
-close $log;
-
-kill(15, $_) for @childpids;
-
 __END__
 
 =head1 NAME