From 7f02210ad184849090c2a0d1c16ca6cf6db04c7a Mon Sep 17 00:00:00 2001 From: "Paul R. Tagliamonte" Date: Tue, 12 Mar 2013 22:07:32 -0400 Subject: [PATCH] Testing assoc --- tests/native_tests/language.hy | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy index 1d78333..ce82231 100644 --- 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")))