From bee53ea40ad9caeeed1e7392d1f59127df7512ac Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 4 Aug 2003 09:51:36 +0000 Subject: [PATCH] r5448: *** empty log message *** --- xltest.asd | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 xltest.asd 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"))) -- 2.34.1