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

more tests for all/last/first on nil

Browse source
This commit is contained in:
Nathan Marz 2016-06-09 10:33:14 -04:00
parent b0d8fe700c
commit 14c404c552
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/com/rpl/specter/core_test.cljx
View file

@ -1192,7 +1192,12 @@
(first (select s/META (setval s/META meta-map v))))))
(deftest beginning-end-on-nil
(deftest beginning-end-all-first-last-on-nil
(is (= [2 3] (setval s/END [2 3] nil) (setval s/BEGINNING [2 3] nil)))
(is (nil? (setval s/FIRST :a nil)))
(is (nil? (setval s/LAST :a nil)))
(is (nil? (transform s/ALL inc nil)))
(is (empty? (select s/FIRST nil)))
(is (empty? (select s/LAST nil)))
(is (empty? (select s/ALL nil)))
)