Merge branch 'empty-kw-tests'

2016-12-21 10:26:43 -08:00 · 2016-12-21 10:26:43 -08:00 · ca6fd66606
commit ca6fd66606
parent 13b484ce46 a4158c5543
1 changed files with 13 additions and 0 deletions
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@ -1047,6 +1047,19 @@
  (assert (= (get {:foo "bar" ":foo" "quux"} :foo) "bar"))
  (assert (= (get {:foo "bar" ":foo" "quux"} ":foo") "quux")))

+
+(defn test-empty-keyword []
+  "NATIVE: test that the empty keyword is recognized"
+  (assert (= : :))
+  (assert (keyword? :))
+  (assert (!= : ":"))
+  (assert (= (name :) ""))
+
+  (defn f [&kwargs kwargs]
+    (list (.items kwargs)))
+  (assert (= (f : 3) [(, "" 3)])))
+
+
 (defn test-nested-if []
  "NATIVE: test nested if"
  (for [x (range 10)]