From 488fa89e09c00d00b9e1bdb4b5994b0d6495cb5a Mon Sep 17 00:00:00 2001 From: Nicolas Dandrimont Date: Thu, 9 May 2013 02:33:14 +0200 Subject: [PATCH] Add some tests for kwapplying expressions --- tests/native_tests/language.hy | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy index 330824d..416bb50 100644 --- a/tests/native_tests/language.hy +++ b/tests/native_tests/language.hy @@ -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 []