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

let: add a scope test

Browse Source 
Signed-off-by: Julien Danjou <julien@danjou.info>
This commit is contained in:
Julien Danjou 2013-04-06 10:12:03 +02:00
parent 485c98c799
commit 9768345a7c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/native_tests/language.hy
View File

@ -299,6 +299,20 @@
(assert (= (let [[x 1] [y 2] [z 3]] (+ x y z)) 6))) (assert (= (let [[x 1] [y 2] [z 3]] (+ x y z)) 6)))
(defn test-let-scope []
"NATIVE: test let works rightish"
(setv y 123)
(assert (= (let [[x 1]
[y 2]
[z 3]]
(+ x y z))
6))
(try
(assert (= x 42)) ; This ain't true
(catch NameError e (assert e)))
(assert (= y 123)))
; FEATURE: native hy-eval ; FEATURE: native hy-eval
; ;
; - related to bug #64 ; - related to bug #64