source: trunk/abcl/contrib/jss/t/javaparser.lisp

Last change on this file was 15571, checked in by Mark Evenson, 3 years ago

Update to javaparser 3.24.2. Fix tests. Fix typo: ignoreable -> ignorable. Have invoke load javaparser first time #1 is used.

File size: 1.2 KB
Line 
1(in-package :cl-user)
2
3(defparameter expanded '(let ((jss::this jss::*object-for-this*))
4  (declare (ignorable jss::this))
5  (jcall "getLoaded"
6         (jcall "load"
7                (jcall "make"
8                       (jcall "intercept"
9                              (jcall "method"
10                                     (jcall "subclass"
11                                            (new '|ByteBuddy|)
12                                            (find-java-class '|Object|)
13                                            t)
14                                     (jstatic "named"
15                                              (find-java-class '|ElementMatchers|)
16                                              "toString"))
17                              (jstatic "value"
18                                       (find-java-class '|FixedValue|)
19                                       "Hello World!")))
20                (jcall "getClassLoader"
21                       (jcall "getClass" jss::this))))))
22
23(defparameter source '#1"new ByteBuddy().subclass(Object.class,t)
24   .method(ElementMatchers.named("toString"))
25   .intercept(FixedValue.value("Hello World!"))
26   .make()
27   .load(getClass().getClassLoader())
28   .getLoaded()" )
29
30(prove:plan 1)
31(prove:is source expanded)
32
33(prove:finalize)
Note: See TracBrowser for help on using the repository browser.