- ### Should also skip over remaining sibling tests if TEST_BAD
- $nskipped += 1; # should count number of skipped siblings
+ # I think that's all we need to do
+
+ } else {
+ die "unknown callback return-value '$res'";
+ }
+ }
+
+ $this->log("irspy", "exiting main loop");
+ # Sanity checks: none of the following should ever happen
+ foreach my $conn (@{ $this->{connections} }) {
+ my $test = $conn->option("current_test_address");
+ my $next = $this->_next_test($test);
+ if (defined $next) {
+ warn "$conn (in test '$test') has queued test '$next'";
+ }
+ if (my $task = $conn->current_task()) {
+ warn "$conn still has an active task $task";
+ }
+ if (my $task = $conn->next_task()) {
+ warn "$conn still has a queued task $task";
+ }
+ if (!$conn->is_idle()) {
+ warn "$conn still has ZOOM-C level tasks queued: see below";
+ }
+ if (!$conn->option("rewrote_record")) {
+ warn "$conn did not rewrite its ZeeRex record";