X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=umlisp-tests.asd;fp=umlisp-tests.asd;h=df85109992e827ccace1199c3e4ab56d6d4df144;hb=26b92c8df70bcd58358b343db835a599cdc56013;hp=0000000000000000000000000000000000000000;hpb=f761dc1d39bb92917db53f935348f79e4db95e40;p=umlisp.git

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