Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Testing assoc

Browse Source
This commit is contained in:
Paul R. Tagliamonte 2013-03-12 22:07:32 -04:00
parent daa6443e7c
commit 7f02210ad1
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/native_tests/language.hy
View File

@ -132,7 +132,15 @@
(assert (= *foo* FOO)) (assert (= *foo* FOO))
(assert (!= *foo* foo))) (assert (!= *foo* foo)))
(defn test-threading [] (defn test-threading []
"NATIVE: test threading macro" "NATIVE: test threading macro"
(assert (= (-> (.upper "a b c d") (.replace "A" "X") (.split)) (assert (= (-> (.upper "a b c d") (.replace "A" "X") (.split))
["X" "B" "C" "D"]))) ["X" "B" "C" "D"])))
(defn test-assoc []
"NATIVE: test assoc"
(def vals {"one" "two"})
(assoc vals "two" "three")
(assert (= (get vals "two") "three")))