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
|
(ns clojure.test-clojure.reflect
(:use clojure.data [clojure.reflect :as reflect] clojure.test clojure.pprint)
(:import [clojure.reflect AsmReflector JavaReflector]))
(defn nodiff
[x y]
(let [[x-only y-only common] (diff x y)]
(when (or x-only y-only)
(is false (with-out-str (pprint {:x-only x-only
:y-only y-only
:common common}))))))
(deftest compare-reflect-and-asm
(let [cl (.getContextClassLoader (Thread/currentThread))
asm-reflector (AsmReflector. cl)
java-reflector (JavaReflector. cl)]
(doseq [classname '[java.lang.Runnable
java.lang.Object
java.io.FileInputStream
clojure.lang.Compiler
clojure.lang.PersistentVector]]
(nodiff (type-reflect classname :reflector asm-reflector)
(type-reflect classname :reflector java-reflector)))))
(deftest field-descriptor->class-symbol-test
(are [s d] (= s (@#'reflect/field-descriptor->class-symbol d))
'org.objectweb.asm.Type<><> "[[Lorg.objectweb/asm/Type;"
'int "I"
'java.lang.Object "Ljava.lang.Object;"))
(deftest internal-name->class-symbol-test
(are [s n] (= s (@#'reflect/internal-name->class-symbol n))
'java.lang.Exception "java/lang/Exception"))
|
