X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=hyperobject-tests.asd;fp=hyperobject-tests.asd;h=33b73b1786b0d32ed3d29dc3b8f13e9ad6636e71;hb=7b3ca1025e0b572b6511c044e948aeab2147af45;hp=0000000000000000000000000000000000000000;hpb=f45b5a177039ec999d3fd43ddf2f7bad8e8e4fd3;p=hyperobject.git

diff --git a/hyperobject-tests.asd b/hyperobject-tests.asd
new file mode 100644
index 0000000..33b73b1
--- /dev/null
+++ b/hyperobject-tests.asd
@@ -0,0 +1,25 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          hyperobject-tests.asd
+;;;; Purpose:       ASDF system definitionf for hyperobject testing package
+;;;; Author:        Kevin M. Rosenberg
+;;;; Date Started:  Apr 2003
+;;;;
+;;;; $Id: hyperobject-tests.asd,v 1.1 2003/04/28 19:06:30 kevin Exp $
+;;;; *************************************************************************
+
+(defpackage #:hyperobject-tests-system
+  (:use #:asdf #:cl))
+(in-package #:hyperobject-tests-system)
+
+(defsystem hyperobject-tests
+    :depends-on (:rt :hyperobject)
+    :components ((:file "tests")))
+
+(defmethod perform ((o test-op) (c (eql (find-system :hyperobject-tests))))
+  (or (funcall (intern (symbol-name '#:do-tests)
+		       (find-package '#:regression-test)))
+      (error "test-op failed")))
+