diff --git a/tests/webtbs/tw39354.pp b/tests/webtbs/tw39354.pp index f703947f01..215ff4bd8d 100644 --- a/tests/webtbs/tw39354.pp +++ b/tests/webtbs/tw39354.pp @@ -15,7 +15,7 @@ begin writeln(Pair.Key); inc(count); end; - if count=0 then + if count<>2 then halt(1); Map.Free; end.