Przeglądaj źródła

detect excess messages after sync

Oswald Buddenhagen 19 lat temu
rodzic
commit
d3faf0d27f
1 zmienionych plików z 5 dodań i 0 usunięć
  1. 5 0
      src/run-tests.pl

+ 5 - 0
src/run-tests.pl

@@ -268,6 +268,11 @@ sub ckbox($$$@)
 			print STDERR "flag mismatch for $bn:$num - expected '$flg', got '$ms{$num}[1]', config: $cfg\n";
 			exit 1;
 		}
+		delete $ms{$num};
+	}
+	if (%ms) {
+		print STDERR "excess messages in '$bn': ".join(", ", sort({$a <=> $b } keys(%ms))).", config: $cfg\n";
+		exit 1;
 	}
 }