1
1
mirror of https://github.com/kanaka/mal.git synced 2024-08-16 17:20:23 +03:00

tests: soft-tests for keywords (instead of comments)

This commit is contained in:
Nicolas Boulenguez 2019-06-02 13:26:37 +02:00
parent 77057e6920
commit 8eed0a29ae

View File

@ -116,9 +116,6 @@
(symbol "abc")
;=>abc
;;;TODO: all implementations should suppport this too
;;;(keyword :abc)
;;;;=>:abc
(keyword "abc")
;=>:abc
@ -258,9 +255,6 @@
;=>{:bcd 234}
(keyword? (nth (keys {:abc 123 :def 456}) 0))
;=>true
;;; TODO: support : in strings in make impl
;;;(keyword? (nth (keys {":abc" 123 ":def" 456}) 0))
;;;;=>false
(keyword? (nth (vals {"a" :abc "b" :def}) 0))
;=>true
@ -380,3 +374,8 @@
(map? cond)
;=>false
(keyword :abc)
;=>:abc
(keyword? (first (keys {":abc" 123 ":def" 456})))
;=>false