add test for select-one! returning nil result

This commit is contained in:
Nathan Marz 2015-06-29 23:42:26 -04:00
parent ce837a39af
commit da554d8247

View file

@ -378,3 +378,8 @@
v (gen/vector (gen/elements [k1 k2 k3]))] v (gen/vector (gen/elements [k1 k2 k3]))]
(= (filter #{k1 k2} v) (select [ALL #{k1 k2}] v)) (= (filter #{k1 k2} v) (select [ALL #{k1 k2}] v))
)) ))
(deftest nil-select-one-test
(is (= nil (select-one! ALL [nil])))
(is (thrown? Exception (select-one! ALL [])))
)