+++ /dev/null
-;;;; -*- 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 <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")))