From e1f1f5d8f5d6eb29eeec384cbcd48e78912a631a Mon Sep 17 00:00:00 2001
From: Stefan Fehrenbach <stefan.fehrenbach@gmail.com>
Date: Mon, 23 Aug 2021 19:24:46 +0200
Subject: [PATCH] Add another test for upsert

---
 test/Main.purs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/Main.purs b/test/Main.purs
index 30156a6..b5dd1f4 100644
--- a/test/Main.purs
+++ b/test/Main.purs
@@ -115,6 +115,7 @@ main = do
 
   log "Recheck #28"
   nowGood' gh28
+  nowGood' gh28'
 
   log "toArrayBy"
   quickCheck' 10000 $ \ (a :: Array (Tuple CollidingInt Int)) ->
@@ -461,3 +462,6 @@ t249 = let k = 855538
 
 gh28 :: Boolean
 gh28 = (HM.singleton 'x' 10 # HM.upsert (_ + 1) 'x' 1) == HM.singleton 'x' 11
+
+gh28' :: Boolean
+gh28' = (HM.singleton 'y' 10 # HM.upsert (_ + 1) 'x' 1) == HM.fromArray [Tuple 'x' 1, Tuple 'y' 10]