implement the asdf test-op for the sqlite systemmaster
authorNicolas Martyanoff <khaelin@gmail.com>
Tue, 10 May 2011 09:45:30 +0000 (10 13:45 +0400)
committerDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Tue, 10 May 2011 09:45:30 +0000 (10 13:45 +0400)
sqlite.asd

index e1aedb4..0e50873 100644 (file)
@@ -6,4 +6,8 @@
   :components ((:file "sqlite-ffi")
                (:file "cache")
                (:file "sqlite" :depends-on ("sqlite-ffi" "cache")))
-  :depends-on (:iterate :cffi))
\ No newline at end of file
+  :depends-on (:iterate :cffi)
+  :in-order-to ((test-op (load-op sqlite-tests))))
+
+(defmethod perform ((o asdf:test-op) (c (eql (find-system :sqlite))))
+  (funcall (intern "RUN-ALL-TESTS" :sqlite-tests)))