Changeset 15065 for trunk/abcl/contrib/jss/t/jss-tests.lisp

Timestamp:

06/09/17 08:50:52 (6 years ago)

Author:

Mark Evenson

Message:

Refactor JAVAPARSER dependencies out of JSS

JAVAPARSER needs ABCL-ASDF to load its Maven artifact, but ABCL-ASDF
needs JSS. Therefore we refactor these dependencies into the ASDF
infrastructure rather than dealing with CL:REQUIRE, which isn't going
to work anyways unless there is another mechanism to load Maven
artifacts.

The JAVAPARSER system is not working due to dependency on the missing
symbols CL-USER::REPLACE-ALL and CL-USER::TREE-REPLACE, but that was
the case before this patch as Alan mistakenly didn't include it in his
submitted patch series.

Location:

trunk/abcl/contrib/jss/t

Files:

• . (added)
• jss-tests.lisp (moved) (moved from trunk/abcl/contrib/jss/jss-tests.lisp) (1 diff)

trunk/abcl/contrib/jss/t/jss-tests.lisp

@@ -60 +60 @@
 (finalize)
 
-(plan 1)
-
-(in-package :jss)
-(defparameter expanded '(let ((jss::this jss::*object-for-this*))
-      (jcall "getLoaded"
-       (jcall "load"
-        (jcall "make"
-         (jcall "intercept"
-          (jcall "method"
-           (jcall "subclass"
-            (new '|ByteBuddy|)
-            (find-java-class '|Object|)
-            t)
-           (jstatic "named"
-              '|ElementMatchers|
-              "toString"))
-          (jstatic "value"
-             '|FixedValue|
-             "Hello World!")))
-        (jcall "getClassLoader"
-         (jcall "getClass" jss::this))))))
-
-(defparameter source '#1"new ByteBuddy().subclass(Object.class,t)
-   .method(ElementMatchers.named("toString"))
-   .intercept(FixedValue.value("Hello World!"))
-   .make()
-   .load(getClass().getClassLoader())
-   .getLoaded()" )
-
-(in-package :jss-test)
-
-(is jss::source
-    jss::expanded)
-
-(finalize)