Use modern ASDF test-op
authorKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 1 Oct 2020 16:38:25 +0000 (10:38 -0600)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 1 Oct 2020 16:38:25 +0000 (10:38 -0600)
clsql.asd

index 4f009505eed9ef3e3603214f2133f2ea5af69340..37263ce37d284a48dc0b5fb9795e1d8ea114aa87 100644 (file)
--- a/clsql.asd
+++ b/clsql.asd
@@ -94,12 +94,8 @@ oriented interface."
                                     (:file "generic-odbc")
                                     (:file "sequences")
                                     (:file "command-object"))
-                       :depends-on (functional))))))
-
-
-(defmethod perform ((o test-op) (c (eql (find-system 'clsql))))
-  (operate 'load-op 'clsql-tests)
-  (operate 'test-op 'clsql-tests :force t))
+                       :depends-on (functional)))))
+    :in-order-to ((test-op (test-op "clsql-tests"))))
 
 (defmethod perform :after ((o load-op) (c (eql (find-system 'clsql))))
   (let* ((init-var (uffi::getenv "CLSQLINIT"))
@@ -112,4 +108,3 @@ oriented interface."
                         #+(or mswin windows win32 win64 mswindows)
                         (probe-file "c:\\etc\\clsql-init.lisp"))))
     (when init-file (load init-file))))
-