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

tests: Test that keywords do not clash with normal strings

Browse Source 
Signed-off-by: Gergely Nagy <algernon@balabit.hu>
This commit is contained in:
Gergely Nagy 2013-04-11 11:46:52 +02:00
parent 702811c69a
commit 2ea2cd1a8d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/native_tests/language.hy
View File

@ -517,6 +517,12 @@
(assert (= (get {:foo "bar"} :foo) "bar")) (assert (= (get {:foo "bar"} :foo) "bar"))
(assert (= (get {:bar "quux"} (get {:foo :bar} :foo)) "quux"))) (assert (= (get {:bar "quux"} (get {:foo :bar} :foo)) "quux")))
(defn test-keyword-clash []
"NATIVE: test that keywords do not clash with normal strings"
(assert (= (get {:foo "bar" ":foo" "quux"} :foo) "bar"))
(assert (= (get {:foo "bar" ":foo" "quux"} ":foo") "quux")))
(defn test-eval [] (defn test-eval []
"NATIVE: test eval" "NATIVE: test eval"
(assert (= 2 (eval (quote (+ 1 1))))) (assert (= 2 (eval (quote (+ 1 1)))))