luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added test for nested dynamic navs

Browse source
This commit is contained in:
Nathan Marz 2016-09-02 08:47:24 -04:00
parent 0c50e1859d
commit 37d985e5f0
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
test/com/rpl/specter/core_test.cljc
View file

@ -1284,3 +1284,16 @@
(let [a 1] (let [a 1]
(is (= 1 (select-any (ignorer a) 1))) (is (= 1 (select-any (ignorer a) 1)))
(is (= 1 (select-any (ignorer :a) 1))))) (is (= 1 (select-any (ignorer :a) 1)))))
(deftest nested-dynamic-nav
(let [data {:a {:a 1 :b 2} :b {:a 3 :b 4}}
afn (fn [a b] (select-any (s/selected? (s/must a)
(s/selected? (s/must b)))
data))]
(is (= data (afn :a :a)))
(is (= s/NONE (afn :a :c)))
(is (= data (afn :a :b)))
(is (= s/NONE (afn :c :a)))
(is (= data (afn :b :a)))
(is (= data (afn :b :b)))))