added failing empty region test

jterbraak · Jul 22, 2024 · 714b738 · 714b738
1 parent e31d190
commit 714b738
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 0 deletions.
diff --git a/deku/test/Test/Main.purs b/deku/test/Test/Main.purs
@@ -598,6 +598,16 @@ lotsOfSwitching = Deku.do
         ]
     ]
 
+emptySwitches :: Nut
+emptySwitches = Deku.do
+  setItem /\ item <- useState 0
+  D.div [ DA.id_ "div0" ]
+    [ D.div [ DA.id_ "content" ] $ Array.range 0 5 <#> \id ->
+      guard ( eq id <$> item ) ( text_ $ show id )
+
+    , D.div [ DA.id_ "incr", DL.click $ item <#> \st _ -> setItem $ ( st + 1 ) `mod` 6 ] [ text_ "next" ]
+    ]
+
 pureSwitches :: Nut
 pureSwitches = Deku.do
   _ /\ elem <- useState'

diff --git a/index.test.js b/index.test.js
@@ -332,6 +332,26 @@ describe("deku", () => {
       })
     );
 
+    doTest("empty switches", (f) =>
+      f(tests.emptySwitches, () => {
+        const $ = require("jquery");
+        expect($("#content").text()).toBe("0");
+        $("#incr").trigger("click");
+        const htm = $("#div0")[0].outerHTML;
+        expect($("#content").text()).toBe("1");
+        $("#incr").trigger("click");
+        expect($("#content").text()).toBe("2");
+        $("#incr").trigger("click");
+        expect($("#content").text()).toBe("3");
+        $("#incr").trigger("click");
+        expect($("#content").text()).toBe("4");
+        $("#incr").trigger("click");
+        expect($("#content").text()).toBe("5");
+        $("#incr").trigger("click");
+        expect($("#content").text()).toBe("0");
+      })
+    );
+
     doTest("switcher switches", (f) =>
       f(tests.switcherSwitches, () => {
         const $ = require("jquery");