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

Merge branch 'master' of git://github.com/jd/hy

Browse Source
This commit is contained in:
Paul R. Tagliamonte 2013-04-06 08:19:23 -04:00
commit 3ab7153398
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

@ -312,6 +312,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