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

Add some tests for defn

Browse Source
This commit is contained in:
Nicolas Dandrimont 2013-04-04 09:29:21 +02:00
parent d421d869af
commit 99f62fb8b3
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/native_tests/language.hy
View File

@ -229,3 +229,19 @@
[2 4])) [2 4]))
(assert (= (list-comp (, x y) (x (range 2) y (range 2))) (assert (= (list-comp (, x y) (x (range 2) y (range 2)))
[(, 0 0) (, 0 1) (, 1 0) (, 1 1)]))) [(, 0 0) (, 0 1) (, 1 0) (, 1 1)])))
(defn test-defn-order []
"NATIVE: test defn evaluation order"
(setv acc [])
(defn my-fun []
(.append acc "Foo")
(.append acc "Bar")
(.append acc "Baz"))
(my-fun)
(assert (= acc ["Foo" "Bar" "Baz"])))
(defn test-defn-return []
"NATIVE: test defn return"
(defn my-fun [x]
(+ x 1))
(assert (= 43 (my-fun 42))))