From 499b6d3f0ce635417d6096acf0a671d8bf3f6e5f Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 15 Dec 2019 00:03:12 -0500 Subject: [PATCH] Define TEST-OP within DEFSYSTEM (the modern way) --- bordeaux-threads.asd | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/bordeaux-threads.asd b/bordeaux-threads.asd index 8db0d2e..a84b4d9 100644 --- a/bordeaux-threads.asd +++ b/bordeaux-threads.asd @@ -60,7 +60,8 @@ Distributed under the MIT license (see LICENSE file) (:file "impl-lispworks-condition-variables") #+(and thread-support digitool) (:file "condition-variables") - (:file "default-implementations"))))) + (:file "default-implementations")))) + :in-order-to ((test-op (test-op :bordeaux-threads/test)))) (defsystem :bordeaux-threads/test :author "Greg Pfeil " @@ -69,8 +70,5 @@ Distributed under the MIT license (see LICENSE file) :version (:read-file-form "version.sexp") :depends-on (:bordeaux-threads :fiveam) :components ((:module "test" - :components ((:file "bordeaux-threads-test"))))) - -(defmethod perform ((o test-op) (c (eql (find-system :bordeaux-threads)))) - (load-system :bordeaux-threads/test) - (symbol-call :5am :run! :bordeaux-threads)) + :components ((:file "bordeaux-threads-test")))) + :perform (test-op (o c) (symbol-call :5am :run! :bordeaux-threads))) -- 2.11.4.GIT