2013-04-28 17:02:08 +02:00
|
|
|
(defn test-unless []
|
|
|
|
"NATIVE: test unless"
|
2016-11-24 03:35:17 +01:00
|
|
|
(assert (= (unless False 1) 1))
|
|
|
|
(assert (= (unless False 1 2) 2))
|
|
|
|
(assert (= (unless False 1 3) 3))
|
|
|
|
(assert (= (unless True 2) None))
|
2015-08-12 00:22:13 +02:00
|
|
|
(assert (= (unless (!= 1 2) 42) None))
|
2013-04-28 17:02:08 +02:00
|
|
|
(assert (= (unless (!= 2 2) 42) 42)))
|