From 3fac3996839bd40587fa0dce1ed747cb029af551 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 24 Apr 2022 14:41:06 +0200
Subject: [PATCH]   * more precise test as suggested here:
 https://gitlab.com/freepascal.org/fpc/source/-/commit/876ae561585c22b9809764710f11b9a88da935ee#note_921869640

---
 tests/webtbs/tw39354.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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.