summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/LivingVillage.Desktop.Tests/PrototypeTests.fs4
1 files changed, 3 insertions, 1 deletions
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<int>(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<int>(snapshot.[i], second.Tiles.[i], (sprintf "tile %d diverged" i))
+ if snapshot.[i] <> second.Tiles.[i] then diverged <- i
+ Assert.AreEqual<int>(-1, diverged)
// Different seed must produce different terrain (sanity).
let other = ProceduralMap.generate (uint64 777)