From 4387b947b3f9406e3d7cdcb442e16917effe0a0b Mon Sep 17 00:00:00 2001
From: Nicolas Dandrimont <nicolas.dandrimont@crans.org>
Date: Fri, 3 May 2013 00:19:23 +0200
Subject: [PATCH] Add a test for subscript assignment

---
 tests/native_tests/language.hy | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy
index beb61c5..c8bfdf2 100644
--- 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)