[osicat-cvs] CVS update: src/osicat.asd

[Nikodemus Siivola]

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")))