From: Kevin M. Rosenberg Date: Mon, 4 Aug 2003 09:51:36 +0000 (+0000) Subject: r5448: *** empty log message *** X-Git-Tag: debian-0.6.2-2~26 X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=commitdiff_plain;h=bee53ea40ad9caeeed1e7392d1f59127df7512ac r5448: *** empty log message *** --- diff --git a/xltest.asd b/xltest.asd deleted file mode 100644 index 78655ba..0000000 --- a/xltest.asd +++ /dev/null @@ -1,39 +0,0 @@ -;;;; -*- 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: xltest.asd,v 1.3 2003/08/04 09:50:33 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 " - :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")))