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
67
68
69
70
71
72
73
74
75
76
77
|
(ns dynapath.util-test
(:use clojure.test
dynapath.util
[dynapath.dynamic-classpath :only [DynamicClasspath]])
(:import clojure.lang.DynamicClassLoader
(java.net URL URLClassLoader)))
(def ^:dynamic *dynamic-cl*)
(def ^:dynamic *url-cl*)
(def ^:dynamic *basic-cl*)
(def ^:dynamic *type*)
(let [urls [(URL. "http://ham.biscuit")]
all-urls (conj urls (URL. "http://gravy.biscuit"))]
(use-fixtures :each
(fn [f]
(binding [*url-cl* (URLClassLoader. (into-array urls) nil)
*dynamic-cl* (DynamicClassLoader.)
*basic-cl* (proxy [ClassLoader] [])
*type* (let [s (gensym "Foo")]
(eval `(deftype ~s []))
s)]
(f))))
(deftest classpath-urls-should-work-for-a-readable-classloader
(is (= urls (classpath-urls *url-cl*))))
(deftest classpath-urls-should-work-for-a-non-readable-classloader
(is (nil? (classpath-urls *basic-cl*))))
(deftest all-classpath-urls-should-work-for-a-parent-with-the-urls
(is (= urls (all-classpath-urls (proxy [ClassLoader] [*url-cl*])))))
(deftest all-classpath-urls-should-order-urls-properly
(is (= all-urls (all-classpath-urls (URLClassLoader. (into-array [(last all-urls)]) *url-cl*)))))
(deftest all-classpath-urls-should-use-the-baseLoader-when-called-with-a-zero-arity
(add-classpath-url (clojure.lang.RT/baseLoader) (first urls))
(= (first urls) (last (all-classpath-urls))))
(deftest add-classpath-url-should-work-for-an-addable-classpath
(is (add-classpath-url *dynamic-cl* (last all-urls)))
(is (= [(last all-urls)] (classpath-urls *dynamic-cl*))))
(deftest add-classpath-url-should-work-for-a-non-addable-classpath
(is (nil? (add-classpath-url *basic-cl* (last all-urls))))
(is (nil? (classpath-urls *basic-cl*))))
(deftest addable-classpath?-should-work
(let [obj (eval `(new ~*type*))]
(is (not (addable-classpath? obj)))
(eval
`(extend-type ~*type*
DynamicClasspath
(can-add? [~'_] true)))
(is (addable-classpath? obj))
(eval
`(extend-type ~*type*
DynamicClasspath
(can-add? [~'_] false)))
(is (not (addable-classpath? obj)))))
(deftest readable-classpath?-should-work
(let [obj (eval `(new ~*type*))]
(is (not (readable-classpath? obj)))
(eval
`(extend-type ~*type*
DynamicClasspath
(can-read? [~'_] true)))
(is (readable-classpath? obj))
(eval
`(extend-type ~*type*
DynamicClasspath
(can-read? [~'_] false)))
(is (not (readable-classpath? obj))))))
|
