From 20327f34e1b617ac784a86c264e0d3413137ad83 Mon Sep 17 00:00:00 2001 From: Andy Fingerhut Date: Sat, 26 May 2012 19:52:42 -0700 Subject: [PATCH] Add some unit tests to verify some corner cases for the symbol clojure.core// It shows up as a special case just about everywhere. --- test/clj_ns_browser/test/core.clj | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/test/clj_ns_browser/test/core.clj b/test/clj_ns_browser/test/core.clj index 3cdd427..291a78e 100644 --- a/test/clj_ns_browser/test/core.clj +++ b/test/clj_ns_browser/test/core.clj @@ -1,6 +1,17 @@ (ns clj-ns-browser.test.core + (:require [clj-ns-browser.browser :as b] + [clj-ns-browser.utils :as u]) (:use [clj-ns-browser.core]) (:use [clojure.test])) -(deftest replace-me ;; FIXME: write - (is false "No tests have been written.")) +(deftest slash-symbol-fixup-checks + (is (= "Function" + (:object-type-str (b/better-get-docs-map "clojure.core//")))) + (is (= #'clojure.core// (u/resolve-fqname "clojure.core//"))) + (is (= #'clojure.core// (u/resolve-fqname "clojure.core" "/"))) + (is (= "clojure.core//" (u/fqname 'clojure.core//))) + (is (= "clojure.core//" (u/fqname '/))) + (is (= "clojure.core//" + (re-find #"^clojure\.core//" + (u/render-one-doc-text "clojure.core//" "Doc")))) + )