r5447: *** empty log message ***

[xlunit.git] / xlunit.asd

diff --git a/xlunit.asd b/xlunit.asd
new file mode 100644 (file)
index 0000000..30ca6f7
--- /dev/null
+++ b/xlunit.asd
@@ -0,0 +1,39 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          xlunit.asd
+;;;; Purpose:       ASDF definition file for Xlunit
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  Aug 2003
+;;;;
+;;;; $Id: xlunit.asd,v 1.1 2003/08/04 09:51:36 kevin Exp $
+;;;; *************************************************************************
+
+(defpackage #:xlunit-system (:use #:asdf #:cl))
+(in-package #:xlunit-system)
+
+(defsystem xlunit
+  :name "xlunit"
+  :author "Kevin Rosenberg based on work by Craig Brozensky"
+  :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
+  :licence "Public domain"
+  :description "Extreme Lisp Testing Suite"
+  :long-description "The XLUNIT package is toolkit for building test suites based on the XPTEST package by Craig Brozensky."
+  
+  :components
+  ((:file "package")
+   (:file "src" :depends-on ("package"))))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'xlunit))))
+  (oos 'load-op 'xlunit-tests)
+  (oos 'test-op 'xlunit-tests))
+
+(defsystem xlunit-tests
+  :depends-on (xlunit)
+  :components ((:file "tests")))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'xlunit-tests))))
+  (or (funcall (intern (symbol-name #:do-tests)
+                      (find-package #:xlunit-tests)))
+      (error "test-op failed")))