11 lines
376 B
Clojure
11 lines
376 B
Clojure
|
(ns babashka.agent-test
|
||
|
|
(:require
|
||
|
|
[babashka.test-utils :as test-utils]
|
||
|
|
[clojure.edn :as edn]
|
||
|
|
[clojure.test :as t :refer [deftest is]]))
|
||
|
|
|
||
|
|
(deftest agent-binding-conveyance-test
|
||
|
|
(let [prog
|
||
|
|
"(def ^:dynamic *foo* 1) (def a (agent nil)) (binding [*foo* 2] (send-off a (fn [_] *foo*))) (await a) @a"]
|
||
|
|
(is (= 2 (edn/read-string (test-utils/bb nil prog))))))
|