1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
; Copyright (c) Rich Hickey. All rights reserved.
; The use and distribution terms for this software are covered by the
; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
; which can be found in the file epl-v10.html at the root of this distribution.
; By using this software in any fashion, you are agreeing to be bound by
; the terms of this license.
; You must not remove this notice, or any other, from this software.
(ns clojure.test-clojure.keywords
(:use clojure.test))
(let [this-ns (str (.name *ns*))]
(deftest test-find-keyword
:foo
::foo
(let [absent-keyword-sym (gensym "absent-keyword-sym")]
(are [result lookup] (= result (find-keyword lookup))
:foo :foo
:foo 'foo
:foo "foo"
nil absent-keyword-sym
nil (str absent-keyword-sym))
(are [result lookup] (= result (find-keyword this-ns lookup))
::foo "foo"
nil (str absent-keyword-sym)))))
|
