Merge pull request #2576 from Kodiologist/setv-test

Add a test of `setv`

Author: Kodiologist

tests/native_tests/setv.hy

@@ -1,4 +1,5 @@
 (import
+  unittest.mock [Mock]
   pytest)
 
 
@@ -42,6 +43,21 @@
     (hy.eval '(setv a 1 b))))
 
 
+(defn test-setv-pairs-eval-order []
+  "Each assignment pair should fully resolve before anything in the next is
+  evaluated, even when statements need to be pulled out."
+
+  (setv m (Mock))
+  (setv l (* [None] 5))
+  (setv
+    (get l 0) m.call-count
+    (get l 1) (do (m) m.call-count)
+    (get l 2) m.call-count
+    (get l 3) (do (m) m.call-count)
+    (get l 4) m.call-count)
+  (assert (= l [0 1 1 2 2])))
+
+
 (defn test-setv-returns-none []
 
   (defn an [x]