From fa88b4bc2651dd4592fff2efa2d00e88d5118f25 Mon Sep 17 00:00:00 2001 From: "Somhairle H. Marisol" Date: Mon, 21 Sep 2026 15:07:43 +0800 Subject: test(desktop): 澄清生成器逐字节快照断言 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit AreEqual 波及重载解析 (int,int,string) — 改用 mutable diverged 检查等价断言；清洁全绿。 --- src/LivingVillage.Desktop.Tests/PrototypeTests.fs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/LivingVillage.Desktop.Tests/PrototypeTests.fs b/src/LivingVillage.Desktop.Tests/PrototypeTests.fs index ece7b23..dc1414a 100644 --- a/src/LivingVillage.Desktop.Tests/PrototypeTests.fs +++ b/src/LivingVillage.Desktop.Tests/PrototypeTests.fs @@ -742,8 +742,10 @@ type PrototypeTests () = let second = ProceduralMap.generate (uint64 4242) Assert.AreEqual(first.Tiles.Length, second.Tiles.Length) let snapshot = Array.copy first.Tiles + let mutable diverged = -1 for i in 0 .. snapshot.Length - 1 do - Assert.AreEqual(snapshot.[i], second.Tiles.[i], (sprintf "tile %d diverged" i)) + if snapshot.[i] <> second.Tiles.[i] then diverged <- i + Assert.AreEqual(-1, diverged) // Different seed must produce different terrain (sanity). let other = ProceduralMap.generate (uint64 777) -- cgit v1.2.3