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

Add regex-navigation-test.

Browse source
This commit is contained in:
Michael Fogleman 2017-10-19 10:52:23 -04:00
parent d7ee2f7c6a
commit 5aed3b254e
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1434,6 +1434,14 @@
(is (= "abq" (setval s/LAST "q" "abc")))
)
(deftest regex-navigation-test
(is (= (select #"t" "test") ["t" "t"]))
(is (= (select [:a #"t"] {:a "test"}) ["t" "t"]))
(is (= (transform #"t" clojure.string/capitalize "test") "TesT"))
(is (= (transform [:a #"t"] clojure.string/capitalize {:a "test"}) {:a "TesT"}))
(is (= (setval #"t" "z" "test") "zesz"))
(is (= (setval [:a #"t"] "z" {:a "test"}) {:a "zesz"})))
(deftest single-value-none-navigators-test
(is (predand= vector? [1 2 3] (setval s/AFTER-ELEM 3 [1 2])))
(is (predand= list? '(1 2 3) (setval s/AFTER-ELEM 3 '(1 2))))