X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=hyperobject.asd;h=3c47f1687768688683c66892321dabefae02cb6c;hb=f45b5a177039ec999d3fd43ddf2f7bad8e8e4fd3;hp=91d2d2b0454ae1bed74c99c269c747403fced19a;hpb=da57e4f1ef6bef626996ce87fca1abf225274128;p=hyperobject.git

diff --git a/hyperobject.asd b/hyperobject.asd
index 91d2d2b..3c47f16 100644
--- a/hyperobject.asd
+++ b/hyperobject.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: hyperobject.asd,v 1.20 2003/04/25 04:53:52 kevin Exp $
+;;;; $Id: hyperobject.asd,v 1.21 2003/04/28 16:07:11 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -15,7 +15,7 @@
 (in-package :asdf)
 
 #+(or allegro lispworks sbcl cmu scl)
-(defsystem :hyperobject 
+(defsystem hyperobject 
   :name "cl-hyperobject"
   :author "Kevin M. Rosenberg <kevin@rosenberg.net>"
   :version "2.6.x"
@@ -35,4 +35,15 @@
    )
   :depends-on (:kmrcl :clsql))
 
+(defmethod perform ((o test-op) (c (eql (find-system :hyperobject))))
+  (oos 'load-op 'hyperobject-tests)
+  (oos 'test-op 'hyperobject-tests))
 
+(defsystem hyperobject-tests
+    :depends-on (rt)
+    :components ((:file "tests")))
+
+(defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl-tests))))
+  (or (funcall (intern (symbol-name '#:do-tests)
+		       (find-package '#:sb)))
+      (error "test-op failed")))