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:
parent
77057e6920
commit
8eed0a29ae
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user