Add a test for subscript assignment
This commit is contained in:
parent
510ad53c71
commit
4387b947b3
@ -15,6 +15,13 @@
|
|||||||
(assert (= [1 2 3 4] (+ [1 2] [3 4]))))
|
(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 []
|
(defn test-for-loop []
|
||||||
"NATIVE: test for loops?"
|
"NATIVE: test for loops?"
|
||||||
(setv count 0)
|
(setv count 0)
|
||||||
|
Loading…
Reference in New Issue
Block a user