Re-formatted test for consistent style.

This commit is contained in:
Michael Fogleman 2017-10-19 20:33:07 -04:00
parent fdfaecd0d0
commit 9a8f79774c

View file

@ -1445,7 +1445,8 @@
(is (= (transform #"aa*" (fn [s] (-> s count str)) "aadt") "2dt"))
(is (= (transform #"[Aa]+" (fn [s] (apply str (take (count s) (repeat "@")))) "Amsterdam Aardvarks") "@msterd@m @@rdv@rks"))
(is (= (select [#"(\S+):\ (\d+)" (s/nthpath 2)] "Mary: 1st George: 2nd Arthur: 3rd") ["1" "2" "3"]))
(is (= (transform (s/subselect #"\d\w+") reverse "Mary: 1st George: 2nd Arthur: 3rd"))))
(is (= (transform (s/subselect #"\d\w+") reverse "Mary: 1st George: 2nd Arthur: 3rd")))
)
(deftest single-value-none-navigators-test
(is (predand= vector? [1 2 3] (setval s/AFTER-ELEM 3 [1 2])))