[osicat-cvs] CVS update: src/osicat.asd - osicat-cvs@common-lisp.net - mailman3.common-lisp.net

8 Nov 2003

Update of /project/osicat/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv16400
Modified Files:
    osicat.asd 
Log Message:
Added support for test framework.
Date: Sat Nov  8 09:21:59 2003
Author: nsiivola
Index: src/osicat.asd
diff -u src/osicat.asd:1.1.1.1 src/osicat.asd:1.2

--- src/osicat.asd:1.1.1.1	Wed Oct 15 10:10:58 2003
+++ src/osicat.asd	Sat Nov  8 09:21:59 2003
@@ -73,3 +73,14 @@
      (:file "osicat" :depends-on
        ("osicat-glue" "foreign-types" "macros" "grovel-constants"))))
+(defsystem :osicat-test
+    :depends-on (:osicat :rt)
+    :components ((:file "osicat-test")))
+
+(defmethod perform ((o test-op) (c (eql (find-system :osicat))))
+  (operate 'load-op :osicat-test)
+  (operate 'test-op :osicat-test))
+
+(defmethod perform ((o test-op) (c (eql (find-system :osicat-test))))
+  (or (funcall (intern "DO-TESTS" :rt))
+      (error "test-op failed")))

    