;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: xltest.asd
-;;;; Purpose: ASDF definition file for XLtest
+;;;; Name: xlunit.asd
+;;;; Purpose: ASDF definition file for Xlunit
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2003
;;;;
-;;;; $Id: xltest.asd,v 1.2 2003/08/04 09:46:44 kevin Exp $
+;;;; $Id: xltest.asd,v 1.3 2003/08/04 09:50:33 kevin Exp $
;;;; *************************************************************************
-(defpackage #:xltest-system (:use #:asdf #:cl))
-(in-package #:xltest-system)
+(defpackage #:xlunit-system (:use #:asdf #:cl))
+(in-package #:xlunit-system)
-(defsystem xltest
- :name "xltest"
+(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 XLTEST package is toolkit for building test suites based on the XPTEST package by Craig Brozensky."
+ :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 'xltest))))
- (oos 'load-op 'xltest-tests)
- (oos 'test-op 'xltest-tests))
+(defmethod perform ((o test-op) (c (eql (find-system 'xlunit))))
+ (oos 'load-op 'xlunit-tests)
+ (oos 'test-op 'xlunit-tests))
-(defsystem xltest-tests
- :depends-on (xltest)
+(defsystem xlunit-tests
+ :depends-on (xlunit)
:components ((:file "tests")))
-(defmethod perform ((o test-op) (c (eql (find-system 'xltest-tests))))
+(defmethod perform ((o test-op) (c (eql (find-system 'xlunit-tests))))
(or (funcall (intern (symbol-name #:do-tests)
- (find-package #:xltest-tests)))
+ (find-package #:xlunit-tests)))
(error "test-op failed")))