File tree Expand file tree Collapse file tree 3 files changed +11
-11
lines changed Expand file tree Collapse file tree 3 files changed +11
-11
lines changed Original file line number Diff line number Diff line change 74
74
" If the var `v` has a see-also has associated with it, assoc that into meta-map."
75
75
[v meta-map]
76
76
(if-let [see-also (:see-alsos (cljdocs/get-doc (var-name v)))]
77
- (merge meta-map {:see-also see-also})
77
+ (merge meta-map {:see-also ( map symbol see-also) })
78
78
meta-map))
79
79
80
80
(defn- maybe-protocol
Original file line number Diff line number Diff line change 390
390
; ;;;;;;;;;;;;;;;;;
391
391
392
392
(deftest see-also-test
393
- (let [expected [ : clojure.core/map-indexed
394
- : clojure.core/pmap
395
- : clojure.core/amap
396
- : clojure.core/mapcat
397
- : clojure.core/keep
398
- : clojure.core/juxt
399
- : clojure.core/mapv
400
- : clojure.core/reduce
401
- : clojure.core/run!] ]
393
+ (let [expected '( clojure.core/map-indexed
394
+ clojure.core/pmap
395
+ clojure.core/amap
396
+ clojure.core/mapcat
397
+ clojure.core/keep
398
+ clojure.core/juxt
399
+ clojure.core/mapv
400
+ clojure.core/reduce
401
+ clojure.core/run!) ]
402
402
403
403
(testing " info/see-also through info/info* in a required namespace"
404
404
(is (= expected (-> '{:ns orchard.test-ns :sym map}
Original file line number Diff line number Diff line change 17
17
(set (map the-ns subset))
18
18
(set (namespaces ns-query)))
19
19
{:has-tests? true } #{'orchard.namespace-test}
20
- {:project? true } #{'orchard.core 'orchard. meta 'orchard.namespace-test}
20
+ {:project? true } #{'orchard.meta 'orchard.namespace-test}
21
21
{:project? true
22
22
:has-tests? true } #{'orchard.namespace-test 'orchard.query-test}
23
23
{:include-regexps [#"query" ]} #{'orchard.query 'orchard.query-test}
You can’t perform that action at this time.
0 commit comments