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

Merge branch 'empty-kw-tests'

Browse Source
This commit is contained in:
Kodi Arfer 2016-12-21 10:26:43 -08:00
commit ca6fd66606
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/native_tests/language.hy
View File

@ -1047,6 +1047,19 @@
(assert (= (get {:foo "bar" ":foo" "quux"} :foo) "bar")) (assert (= (get {:foo "bar" ":foo" "quux"} :foo) "bar"))
(assert (= (get {:foo "bar" ":foo" "quux"} ":foo") "quux"))) (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 [] (defn test-nested-if []
"NATIVE: test nested if" "NATIVE: test nested if"
(for [x (range 10)] (for [x (range 10)]