Add some tests for kwapplying expressions

This commit is contained in:
Nicolas Dandrimont 2013-05-09 02:33:14 +02:00
parent 0055f00a76
commit 488fa89e09

View File

@ -143,7 +143,10 @@
(defn test-kwargs []
"NATIVE: test kwargs things."
(assert (= (kwapply (kwtest) {"one" "two"}) {"one" "two"})))
(assert (= (kwapply (kwtest) {"one" "two"}) {"one" "two"}))
(setv mydict {"one" "three"})
(assert (= (kwapply (kwtest) mydict) mydict))
(assert (= (kwapply (kwtest) ((fn [] {"one" "two"}))) {"one" "two"})))
(defn test-dotted []