Changeset 15557

Timestamp:

02/25/22 20:24:39 (7 months ago)

Author:

Mark Evenson

Message:

abcl-introspect: fix and move test into contrib

Failing test was actually returning additional information that was
causing the test to fail, namely a block marker from Primitives.java:

((:LEXICAL-VARIABLE A 10) (:LEXICAL-VARIABLE B 20)

(:BLOCK BAR #<org.armedbear.lisp.Primitives$BlockMarker?@ca46a46>))

The "extra" stuff which ABCL-INTROSPECT adds to the SYSTEM package may
not always be available if say JSS fails to load. Make this explicit
by moving the test.

Location:

trunk/abcl

Files:

• abcl-prove.asd (modified) (1 diff)
• contrib/abcl-introspect/abcl-introspect-test.asd (modified) (1 diff)
• contrib/abcl-introspect/t/environments.lisp (added)
• t/environments.lisp (deleted)

trunk/abcl/abcl-prove.asd

@@ -25 +25 @@
                              (:test-file "run-program")
                              (:test-file "url-stream")
-                             (:test-file "environments")
                              (:test-file "without-use-cl")))))
 

trunk/abcl/contrib/abcl-introspect/abcl-introspect-test.asd

@@ -4 +4 @@
   :author "Mark Evenson"
   :long-description "<urn:abcl.org/release/1.8.0/contrib/abcl-introspect/test#>"
-  :version "2.0.0"
+  :version "2.1.0"
   :defsystem-depends-on (prove-asdf)
-  :depends-on (abcl-asdf ;; our dependencies
+  :depends-on (abcl-asdf ;; locate various testing dependencies via ABCL-ASDF
                prove)
   :components ((:module tests
-                        :pathname "t/"
-                        :components ((:test-file "disassemble"))))
+                :pathname "t/"
+                :components ((:test-file "disassemble")
+                             (:test-file "environments"))))
   :perform (asdf:test-op (op c)
                          (uiop:symbol-call :prove-asdf 'run-test-system c)))