failing mount-point test

hyperfiddle · Jul 4, 2024 · d6492a5 · d6492a5
1 parent 9814e84
commit d6492a5
Showing 1 changed file with 16 additions and 1 deletion.
diff --git a/test/hyperfiddle/electric_de_test.cljc b/test/hyperfiddle/electric_de_test.cljc
@@ -2297,4 +2297,19 @@
     % := []
     % := [:foo]
     (reset! !xs [])
-    % := []))
+    % := []))
+
+(tests
+  (def !xs (atom ["apple.awt.UIElement" "clojure.basis" "file.encoding" "java.class.path"]))
+  (with ((l/single {}
+           (let [mp (e/mount-point)]
+             (e/cursor [k (e/diff-by identity (e/watch !xs))]
+               (e/join (mount-at mp (e/tag) k)))
+             (tap (e/as-vec (e/join mp)))))
+         tap tap)
+    % := []
+    % := ["apple.awt.UIElement" "clojure.basis" "file.encoding" "java.class.path"]
+    (reset! !xs ["clojure.basis" "file.encoding" "java.class.path"])
+    % := ["clojure.basis" "file.encoding" "java.class.path"]
+    (reset! !xs ["apple.awt.UIElement" "clojure.basis" "file.encoding" "java.class.path"])
+    % := ["apple.awt.UIElement" "clojure.basis" "file.encoding" "java.class.path"]))