fix electric test shim

hyperfiddle · Jan 31, 2024 · 5842ea8 · 5842ea8
1 parent 6021909
commit 5842ea8
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 10 deletions.
diff --git a/src/hyperfiddle/electric_local_def_de.cljc b/src/hyperfiddle/electric_local_def_de.cljc
@@ -27,5 +27,5 @@
 #?(:clj (defn run-single [frame] (m/reduce #(do %2) nil frame)))
 #?(:clj (defmacro single {:style/indent 0} [conf & body]
           (ca/check map? conf)
-          (let [env (merge (->local-config (lang/normalize-env &env)) conf)]
+          (let [env (merge (->local-config &env) (lang/normalize-env &env) conf)]
             `(run-single (r/root-frame {::Main ~(lang/compile ::Main `(do ~@body) env)} ::Main)))))
diff --git a/test/hyperfiddle/electric_de_test.cljc b/test/hyperfiddle/electric_de_test.cljc
@@ -2,13 +2,6 @@
   (:require [hyperfiddle.rcf :as rcf :refer [tests tap with %]]
             [hyperfiddle.electric-local-def-de :as l]))
 
-;; fails to compile, rcf rewrites `tap` to `RCF__tap` and electric compiler fails to resolve that
-;; (tests "hello world"
-;;   (with ((l/single {} (tap "hello world")) tap tap)
-;;     % := "hello world"))
-
-(def hello (l/single {} (tap "hello world")))
 (tests "hello world"
-  (with (hello tap tap)
-    % := "hello world"                  ; returns a diff {:degree 1, :permutation {}, :grow 1, :shrink 0, :change {0 "hello world"}, :freeze #{0}}
-    ))
+  (with ((l/single {} (tap "hello world")) tap tap)
+    % := "hello world"))