- :perform (load-op :after (op hyperobject)
- (pushnew :hyperobject cl:*features*))
- :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"))
- (:file "wrapper" :depends-on ("base-class"))
- )
- :depends-on (:kmrcl :clsql))
-
-
+(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"))))