hy/tests/native_tests/when.hy

(defn test-when []
  "NATIVE: test when"
  (assert (= (when True 1) 1))
  (assert (= (when True 1 2) 2))
  (assert (= (when True 1 3) 3))
  (assert (= (when False 2) None))
  (assert (= (when (= 1 2) 42) None))
  (assert (= (when (= 2 2) 42) 42)))
Add a `when' macro Signed-off-by: Julien Danjou <julien@danjou.info> 2013-04-28 16:57:29 +02:00			`(defn test-when []`
			`"NATIVE: test when"`
Burninate the synonyms `true`, `false`, and `nil` Per the straw poll in #908, as an alternative to #1147. Now you must use `True`, `False`, and `None`, as in Python. Or just assign `true` to `True`, etc.; the old synonyms aren't reserved words anymore. 2016-11-23 18:35:17 -08:00			`(assert (= (when True 1) 1))`
			`(assert (= (when True 1 2) 2))`
			`(assert (= (when True 1 3) 3))`
			`(assert (= (when False 2) None))`
purged null from Hy we already have `nil`, and `null` was barely ever used. 2015-08-11 16:22:13 -06:00			`(assert (= (when (= 1 2) 42) None))`
Add a `when' macro Signed-off-by: Julien Danjou <julien@danjou.info> 2013-04-28 16:57:29 +02:00			`(assert (= (when (= 2 2) 42) 42)))`