Skip to content

Commit ad1811e

Browse files
dynj-test: drop 'sut' idiom
It's not used in any other tests in this project.
1 parent fa103bc commit ad1811e

File tree

1 file changed

+9
-9
lines changed

1 file changed

+9
-9
lines changed

test/active/clojure/dynj_test.clj

+9-9
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
11
(ns active.clojure.dynj-test
2-
(:require [active.clojure.dynj :as sut]
2+
(:require [active.clojure.dynj :as dynj]
33
[clojure.test :as t]))
44

5-
(sut/declare-dynj foo "Foo" [bar])
5+
(dynj/declare-dynj foo "Foo" [bar])
66

77
(t/deftest declare-dynj-test
88
;; (t/is (:dynamic (meta #'foo)))
@@ -11,31 +11,31 @@
1111
(t/deftest binding-test
1212
(t/is (thrown? Exception (foo 4)))
1313

14-
(sut/binding [foo (fn [x] (* x 2))]
14+
(dynj/binding [foo (fn [x] (* x 2))]
1515
(t/is (= 8 (foo 4)))))
1616

1717
(t/deftest threading-test
1818
;; threads 'inherit' current bindings
19-
(sut/binding [foo (fn [x] (* x 2))]
19+
(dynj/binding [foo (fn [x] (* x 2))]
2020
(t/is (= 8 @(future (foo 4))))))
2121

2222
(t/deftest bound-fn-test
2323
;; bind a function to current bindings
24-
(let [f (sut/binding [foo (fn [x] (* x 2))]
25-
(sut/bound-fn* (fn [v]
26-
(foo v))))]
24+
(let [f (dynj/binding [foo (fn [x] (* x 2))]
25+
(dynj/bound-fn* (fn [v]
26+
(foo v))))]
2727
(t/is (= 8 (f 4)))))
2828

2929
(t/deftest with-bindings*-test
3030
(t/is
3131
(= 7
32-
(sut/with-bindings*
32+
(dynj/with-bindings*
3333
;; just "foo" doesn't work here; Var is expected
3434
{#'foo (fn [x] (+ x 4))}
3535
;; expects a thunk
3636
(fn [] (foo 3))))))
3737

38-
(sut/defn-dynj bar [arg]
38+
(dynj/defn-dynj bar [arg]
3939
(* 3 arg))
4040

4141
(t/deftest defn-dynj-default-implementation-test

0 commit comments

Comments
 (0)