X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=hyperobject.asd;h=f5f7916d4058264cc12b3adf10735b45a1c3fb84;hp=50063cd9a4cfee99133c010214160f6c6f3a64f0;hb=HEAD;hpb=516272144b06d6a8a96a1a4f7b38bbaf410f2f14

diff --git a/hyperobject.asd b/hyperobject.asd
index 50063cd..f5f7916 100644
--- a/hyperobject.asd
+++ b/hyperobject.asd
@@ -4,27 +4,38 @@
 ;;;;
 ;;;; Name:          hyperobject.asd
 ;;;; Purpose:       ASDF system definition for hyperobject package
-;;;; Programmer:    Kevin M. Rosenberg
+;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: hyperobject.asd,v 1.1 2002/11/03 19:59:10 kevin Exp $
-;;;;
-;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
+;;;; $Id$
 ;;;; *************************************************************************
 
-(in-package :asdf)
-
-(defsystem :hyperobject
-    :perform (load-op :after (op hyperobject)
-		      (pushnew :hyperobject cl:*features*))
-    :components 
-    ((:file "package")
-     (:file "hyperobject" :depends-on ("package")))
-    :depends-on (:kmrcl))
-
+(defpackage hyperobject-system (:use #:asdf #:cl))
+(in-package :hyperobject-system)
 
-(when (ignore-errors (find-class 'load-compiled-op))
-  (defmethod perform :after ((op load-compiled-op)
-			     (c (eql (find-system :hyperobject))))
-    (pushnew :hyperobject cl:*features*)))
+(defsystem hyperobject
+  :name "hyperobject"
+  :author "Kevin M. Rosenberg <kevin@rosenberg.net>"
+  :version "2.7.2"
+  :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
+  :licence "BSD-like License"
+  :depends-on (:kmrcl :clsql)
+  :components
+  ((:file "package")
+   (:file "metaclass" :depends-on ("package"))
+   (:file "mop" :depends-on ("metaclass"))
+   (:file "rules" :depends-on ("mop"))
+   (:file "connect" :depends-on ("mop"))
+   (:file "sql" :depends-on ("connect"))
+   (:file "views" :depends-on ("mop"))
+   (:file "base-class" :depends-on ("views" "sql" "rules"))
+   )
+  :in-order-to ((test-op (test-op "hyperobject/test"))))
 
+(defsystem hyperobject/test
+    :depends-on (:rt :hyperobject)
+    :components ((:file "tests"))
+    :perform (test-op (o s)
+                      (or (funcall (intern (symbol-name '#:do-tests)
+                                           (find-package '#:regression-test)))
+                          (error "test-op failed"))))