jss: firmly move testing into PROVE's embrace

Restores the use of

   (asdf:test-system 'jss)
parent 4247dfe9
;;;; -*- Mode: LISP -*-
(asdf:defsystem :jss-tests
:depends-on (jss)
:components ((:module tests :pathname ""
:components ((:file "test-optimize-java-call")
(:file "tests")))))
(require :asdf)
(in-package :cl-user)
(asdf:defsystem :jss
(asdf:defsystem jss
:author "Alan Ruttenberg, Mark Evenson"
:long-description "<urn:abcl.org/release/1.5.0/contrib/jss#>"
:version "3.2.3"
......@@ -13,24 +13,21 @@
(:file "classpath")
(:file "transform-to-field")
(:file "compat"))))
;; :defsystem-depends-on (:prove-asdf)
;; :in-order-to ((test-op (test-op jss/tests)))
;; Until prove-asdf works
(let ((where (merge-pathnames "jss-tests.lisp" (load-time-value *load-pathname*))))
(defun cl-user::test-jss()
(funcall (intern "QUICKLOAD" 'ql) :prove)
(funcall (intern "RUN" 'prove) where)))
;; (asdf:defsystem :jss/tests
;; :depends-on (jss)
;; :components ((:module tests
;; :pathname ""
;; :components ((:test-file "jss-tests"))
;; ))
;; :perform (test-op :after (op c)
;; (funcall (intern #.(string :run) :prove) c)))
:perform (asdf:test-op (op c)
(asdf:test-system :jss/tests)))
(asdf:defsystem jss/tests
:defsystem-depends-on (quicklisp-abcl
:depends-on (jss
:components ((:module tests
:pathname ""
:components ((:test-file "jss-tests"))))
:perform (asdf:test-op (op c)
(uiop:symbol-call :prove-asdf 'run-test-system c)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment