::lang/pure generates node - compiler test

hyperfiddle · Aug 7, 2024 · fde4384 · fde4384
1 parent dbd5cdb
commit fde4384
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/test/hyperfiddle/electric/impl/compiler_test.cljc b/test/hyperfiddle/electric/impl/compiler_test.cljc
@@ -182,9 +182,10 @@
 
 (tests "test-pure"
   (match (l/test-compile ::Main (::lang/site :client (::lang/pure :foo)))
-    `[(r/cdef 0 [] [] :client
+    `[(r/cdef 0 [:client] [] :client
         (fn [~'frame]
-          (r/pure (r/pure :foo))))]))
+          (r/define-node ~'frame 0 (r/pure :foo))
+          (r/pure (r/node ~'frame 0))))]))
 
 (tests "test-ctor"
   (match (l/test-compile ::Main (::lang/ctor :foo))