From 34803ef0f0a02430b51382e7684f6d775d135953 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 4 Aug 2003 09:51:36 +0000 Subject: [PATCH] r5447: *** empty log message *** --- debian/changelog | 2 +- example.lisp | 10 +++++----- package.lisp | 8 +++----- src.lisp | 5 ++--- tests.lisp | 10 +++++----- xltest.asd | 30 +++++++++++++++--------------- xlunit.asd | 39 +++++++++++++++++++++++++++++++++++++++ 7 files changed, 70 insertions(+), 34 deletions(-) create mode 100644 xlunit.asd diff --git a/debian/changelog b/debian/changelog index 84ff91b..67f37f8 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,4 +1,4 @@ -cl-xlunut (0.1.0-1) unstable; urgency=low +cl-xlunit (0.1.0-1) unstable; urgency=low * Initial upload diff --git a/example.lisp b/example.lisp index ce53451..44da457 100644 --- a/example.lisp +++ b/example.lisp @@ -3,17 +3,17 @@ ;;;; 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 diff --git a/package.lisp b/package.lisp index e935fda..fc7291a 100644 --- a/package.lisp +++ b/package.lisp @@ -6,15 +6,14 @@ ;;;; 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 @@ -44,4 +43,3 @@ ) (:documentation "This is the XP TestSuite Framework.")) -(in-package #:xltest) diff --git a/src.lisp b/src.lisp index a809258..4896067 100644 --- a/src.lisp +++ b/src.lisp @@ -6,11 +6,10 @@ ;;;; 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 () diff --git a/tests.lisp b/tests.lisp index 9e4d4b7..101125a 100644 --- a/tests.lisp +++ b/tests.lisp @@ -3,17 +3,17 @@ ;;;; 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))) diff --git a/xltest.asd b/xltest.asd index e332f76..78655ba 100644 --- a/xltest.asd +++ b/xltest.asd @@ -2,38 +2,38 @@ ;;;; ************************************************************************* ;;;; 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 " :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"))) diff --git a/xlunit.asd b/xlunit.asd new file mode 100644 index 0000000..30ca6f7 --- /dev/null +++ b/xlunit.asd @@ -0,0 +1,39 @@ +;;;; -*- 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 " + :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