Add a test for subscript assignment

2013-05-03 00:19:23 +02:00 · 2013-05-03 00:19:23 +02:00 · 4387b947b3
commit 4387b947b3
parent 510ad53c71
1 changed files with 7 additions and 0 deletions
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@ -15,6 +15,13 @@
  (assert (= [1 2 3 4] (+ [1 2] [3 4]))))


+(defn test-setv-get []
+  "NATIVE: test setv works on a get expression"
+  (setv foo [0 1 2])
+  (setv (get foo 0) 12)
+  (assert (= (get foo 0) 12)))
+
+
 (defn test-for-loop []
  "NATIVE: test for loops?"
  (setv count 0)