Testing assoc

paultag · Mar 13, 2013 · 7f02210 · 7f02210
1 parent daa6443
commit 7f02210
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy
@@ -132,7 +132,15 @@
   (assert (= *foo* FOO))
   (assert (!= *foo* foo)))
 
+
 (defn test-threading []
   "NATIVE: test threading macro"
   (assert (= (-> (.upper "a b c d") (.replace "A" "X") (.split))
              ["X" "B" "C" "D"])))
+
+
+(defn test-assoc []
+  "NATIVE: test assoc"
+  (def vals {"one" "two"})
+  (assoc vals "two" "three")
+  (assert (= (get vals "two") "three")))