diff --git a/src/run-tests.pl b/src/run-tests.pl index 772b4ab..e048f20 100755 --- a/src/run-tests.pl +++ b/src/run-tests.pl @@ -477,7 +477,7 @@ sub ckbox($$$@) my ($mu, %ms) = readbox($bn); if ($mu != $MU) { - print STDERR "MAXUID mismatch for '$bn'.\n"; + print STDERR "MAXUID mismatch for '$bn' (got $mu, wanted $MU).\n"; return 1; } while (@MS) { @@ -522,12 +522,20 @@ sub ckstate($@) return 1; } else { for $l (@ls) { + if (!@T) { + print STDERR "Excess sync state entry: '$l'.\n"; + return 1; + } $xl = shift(@T)." ".shift(@T)." ".shift(@T); if ($l ne $xl) { print STDERR "Sync state entry mismatch: '$l' instead of '$xl'.\n"; return 1; } } + if (@T) { + print STDERR "Missing sync state entry: '".shift(@T)." ".shift(@T)." ".shift(@T)."'.\n"; + return 1; + } } return 0; }