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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
(ns nrepl.util.lookup-test
(:require [clojure.test :refer :all]
[nrepl.bencode :as bencode]
[nrepl.util.lookup :as l :refer [lookup]])
(:import (java.io ByteArrayOutputStream)))
(deftest lookup-test
(testing "special sym lookup"
(is (not-empty (lookup 'clojure.core 'if))))
(testing "fully qualified sym lookup"
(is (not-empty (lookup 'nrepl.util.lookup 'clojure.core/map))))
(testing "aliased sym lookup"
(is (not-empty (lookup 'nrepl.util.lookup 'clojure.string/upper-case))))
(testing "non-qualified lookup"
(is (not-empty (lookup 'clojure.core 'map)))
(is (= {:ns "clojure.core"
:name "map"
:arglists "([f] [f coll] [f c1 c2] [f c1 c2 c3] [f c1 c2 c3 & colls])"
:arglists-str "([f] [f coll] [f c1 c2] [f c1 c2 c3] [f c1 c2 c3 & colls])"}
(select-keys (lookup 'nrepl.util.lookup 'map) [:ns :name :arglists :arglists-str])
(select-keys (lookup 'clojure.core 'map) [:ns :name :arglists :arglists-str]))))
(testing "macro lookup"
(is (= {:ns "clojure.core"
:name "future"
:macro "true"}
(select-keys (lookup 'clojure.core 'future) [:ns :name :macro]))))
(testing "special form lookup"
(is (= {:ns "clojure.core"
:name "let"
:special-form "true"}
(select-keys (lookup 'clojure.core 'let) [:ns :name :special-form]))))
(testing "Java sym lookup"
(is (empty? (lookup 'clojure.core 'String)))))
(defn- bencode-str
"Bencode a thing and write it into a string."
[thing]
(let [out (ByteArrayOutputStream.)]
(try
(bencode/write-bencode out thing)
(.toString out)
(catch IllegalArgumentException ex
(throw (ex-info (.getMessage ex) {:thing thing}))))))
(defn- lookup-public-vars
"Look up every public var in all namespaces in the classpath and return the result as a set."
[]
(transduce
(comp
(mapcat ns-publics)
(map (comp meta val))
(map #(lookup (.getName ^clojure.lang.Namespace (:ns %)) (:name %))))
conj
#{}
(all-ns)))
(deftest bencode-test
(doseq [m (lookup-public-vars)]
(is ((comp string? not-empty) (bencode-str m)))))
|
