Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Move test assertions into a test function

Browse Source
This commit is contained in:
Kodi Arfer 2018-04-23 10:59:03 -07:00
parent 38fdcc2114
commit 906b470499
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
tests/native_tests/native_macros.hy
View File

@ -15,42 +15,42 @@
(rev (.append x 1) (.append x 2) (.append x 3)) (rev (.append x 1) (.append x 2) (.append x 3))
(assert (= x [3 2 1]))) (assert (= x [3 2 1])))
; Macros returning constants (defn test-macros-returning-constants []
(defmacro an-int [] 42)
(assert (= (an-int) 42))
(defmacro an-int [] 42) (defmacro a-true [] True)
(assert (= (an-int) 42)) (assert (= (a-true) True))
(defmacro a-false [] False)
(assert (= (a-false) False))
(defmacro a-true [] True) (defmacro a-float [] 42.)
(assert (= (a-true) True)) (assert (= (a-float) 42.))
(defmacro a-false [] False)
(assert (= (a-false) False))
(defmacro a-float [] 42.) (defmacro a-complex [] 42j)
(assert (= (a-float) 42.)) (assert (= (a-complex) 42j))
(defmacro a-complex [] 42j) (defmacro a-string [] "foo")
(assert (= (a-complex) 42j)) (assert (= (a-string) "foo"))
(defmacro a-string [] "foo") (defmacro a-bytes [] b"foo")
(assert (= (a-string) "foo")) (assert (= (a-bytes) b"foo"))
(defmacro a-bytes [] b"foo") (defmacro a-list [] [1 2])
(assert (= (a-bytes) b"foo")) (assert (= (a-list) [1 2]))
(defmacro a-list [] [1 2]) (defmacro a-tuple [&rest b] b)
(assert (= (a-list) [1 2])) (assert (= (a-tuple 1 2) [1 2]))
(defmacro a-tuple [&rest b] b) (defmacro a-dict [] {1 2})
(assert (= (a-tuple 1 2) [1 2])) (assert (= (a-dict) {1 2}))
(defmacro a-dict [] {1 2}) (defmacro a-set [] #{1 2})
(assert (= (a-dict) {1 2})) (assert (= (a-set) #{1 2}))
(defmacro a-set [] #{1 2}) (defmacro a-none [])
(assert (= (a-set) #{1 2})) (assert (= (a-none) None)))
(defmacro a-none [])
(assert (= (a-none) None))
; A macro calling a previously defined function ; A macro calling a previously defined function
(eval-when-compile (eval-when-compile