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

2013-04-06 08:19:23 -04:00 · 2013-04-06 08:19:23 -04:00 · 3ab7153398
commit 3ab7153398
parent a625493a3f 9768345a7c
1 changed files with 14 additions and 0 deletions
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@ -312,6 +312,20 @@
  (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
 ;
 ;   - related to bug #64