-cl-xlunut (0.1.0-1) unstable; urgency=low
+cl-xlunit (0.1.0-1) unstable; urgency=low
* Initial upload
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: example.lisp
-;;;; Purpose: Example file for XLTest
+;;;; Purpose: Example file for XLUnit
;;;; Authors: Kevin Rosenberg and Craig Brozefsky
;;;;
-;;;; $Id: example.lisp,v 1.2 2003/08/04 09:46:44 kevin Exp $
+;;;; $Id: example.lisp,v 1.3 2003/08/04 09:50:33 kevin Exp $
;;;; *************************************************************************
-(defpackage #:xltest-example
- (:use #:cl #:xltest)
+(defpackage #:xlunit-example
+ (:use #:cl #:xlunit)
(:export #:math-test-suite))
-(in-package #:xltest-example)
+(in-package #:xlunit-example)
;;; First we define some basic fixtures that we are going to need to
;;; perform our tests. A fixture is a place to hold data we need
;;;; Purpose: Package definition for XLTEST
;;;; Authors: Kevin Rosenberg and Craig Brozefsky
;;;;
-;;;; Put in public domain by Kevin Rosenberg and onShore, Inc
-;;;; $Id: package.lisp,v 1.2 2003/08/04 09:46:44 kevin Exp $
+;;;; $Id: package.lisp,v 1.3 2003/08/04 09:50:33 kevin Exp $
;;;; *************************************************************************
(in-package #:cl-user)
-(defpackage #:xltest-framework
+(defpackage #:xlunit-framework
(:use #:common-lisp)
- (:nicknames #:xltest #:xptest)
+ (:nicknames #:xlunit #:xptest)
(:export
;;; Framework classes
#:setup
)
(:documentation "This is the XP TestSuite Framework."))
-(in-package #:xltest)
;;;; Purpose: eXtreme Lisp Test Suite
;;;; Authors: Kevin Rosenberg and Craig Brozefsky
;;;;
-;;;; Put in public domain by Kevin Rosenberg and onShore, Inc
-;;;; $Id: src.lisp,v 1.2 2003/08/04 09:46:44 kevin Exp $
+;;;; $Id: src.lisp,v 1.3 2003/08/04 09:50:33 kevin Exp $
;;;; *************************************************************************
-(in-package #:xltest)
+(in-package #:xlunit)
(defclass test-fixture ()
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: tests.lisp
-;;;; Purpose: Test suite for XLTest
+;;;; Purpose: Test suite for XLUnit
;;;; Author: Kevin Rosenberg
;;;;
;;;; Put in public domain by Kevin Rosenberg
-;;;; $Id: tests.lisp,v 1.2 2003/08/04 09:46:44 kevin Exp $
+;;;; $Id: tests.lisp,v 1.3 2003/08/04 09:50:33 kevin Exp $
;;;; *************************************************************************
-(defpackage #:xltest-tests
- (:use #:cl #:xltest))
+(defpackage #:xlunit-tests
+ (:use #:cl #:xlunit))
-(in-package #:xltest-tests)
+(in-package #:xlunit-tests)
(defclass was-run (test-fixture)
((log :accessor ws-log)))
;;;; *************************************************************************
;;;; 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")))
--- /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: 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")))