Commit eb2e268e authored by Symbolics's avatar Symbolics
Browse files

Fix ASDF test operation

parent 6ce81d6d
......@@ -79,8 +79,8 @@
:depends-on ("qd-methods"))))
(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct))))
(oos 'test-op 'oct-tests))
; (defmethod perform ((op test-op) (c (eql (asdf:find-system :oct))))
; (oos 'test-op 'rt:do-tests))
(asdf:defsystem rt
:components
......@@ -97,7 +97,7 @@
(:file "qd-test")
(:file "rt-tests")))
(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct/tests))))
(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct))))
(let* ((rt-package (find-package "RT"))
(pass (funcall (intern "DO-TESTS" rt-package)))
(unexpected-failures (symbol-value (find-symbol "*UNEXPECTED-FAILURES*" rt-package)))
......
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