add traversed test

This commit is contained in:
Nathan Marz 2016-11-07 11:17:36 -05:00
parent 390f00063c
commit 0ddb811326

View file

@ -1314,3 +1314,6 @@
(is (= 1 (eachnav-fn-test "b" data))) (is (= 1 (eachnav-fn-test "b" data)))
(is (= 2 (eachnav-fn-test "c" data))) (is (= 2 (eachnav-fn-test "c" data)))
)) ))
(deftest traversed-test
(is (= 10 (select-any (s/traversed s/ALL +) [1 2 3 4]))))