From 20825c7e1b5f0a878f77a28c1a77d25bfb6c114f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 20 Jul 2003 18:10:22 +0000 Subject: [PATCH] r5342: *** empty log message *** --- debian/changelog | 7 +++++++ ptester.asd | 28 ++++++++++++++++++++++++++++ tester.lisp => src.lisp | 17 +++++++++-------- tester.asd | 34 ---------------------------------- 4 files changed, 44 insertions(+), 42 deletions(-) create mode 100644 ptester.asd rename tester.lisp => src.lisp (98%) delete mode 100644 tester.asd diff --git a/debian/changelog b/debian/changelog index 91aa907..d26b8af 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +cl-tester (2.0-1) unstable; urgency=low + + * Fix upstream format statement error + * Change name of module and Lisp package to ptester + + -- Kevin M. Rosenberg Sun, 20 Jul 2003 11:55:20 -0600 + cl-tester (1.1.1.5-1) unstable; urgency=low * Porting fixes diff --git a/ptester.asd b/ptester.asd new file mode 100644 index 0000000..73435aa --- /dev/null +++ b/ptester.asd @@ -0,0 +1,28 @@ +;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; ************************************************************************* +;;;; FILE IDENTIFICATION +;;;; +;;;; Name: ptester.asd +;;;; Purpose: ASDF definition file for ptester +;;;; Programmer: Kevin M. Rosenberg +;;;; Date Started: Sep 2002 +;;;; +;;;; $Id: ptester.asd,v 1.1 2003/07/20 18:10:22 kevin Exp $ +;;;; +;;;; ************************************************************************* + +(defpackage #:ptester-system (:use #:asdf #:cl)) +(in-package #:ptester-system) + + +(defsystem ptester + :name "ptester" + :author "Kevin Layer, Franz, Inc / Kevin Rosenberg" + :maintainer "Kevin M. Rosenberg " + :licence "LLGPL" + :description "Portable test harness package" + :long-description "ptester is a portable testing framework based on Franz's tester module" + + :components + ((:file "src"))) + diff --git a/tester.lisp b/src.lisp similarity index 98% rename from tester.lisp rename to src.lisp index 0c32225..3c197bf 100644 --- a/tester.lisp +++ b/src.lisp @@ -1,8 +1,9 @@ -;; tester.cl -;; A test harness for Allegro CL. +;; ptester.lisp +;; A test harness based on Franz's tester module ;; ;; copyright (c) 1985-1986 Franz Inc, Alameda, CA ;; copyright (c) 1986-2002 Franz Inc, Berkeley, CA - All rights reserved. +;; copyright (c) 2001-2003 Kevin Rosenberg (portability changes) ;; ;; This code is free software; you can redistribute it and/or ;; modify it under the terms of the version 2.1 of @@ -26,10 +27,10 @@ ;;;; from the original ACL 6.1 sources: ;; Id: tester.cl,v 2.2.12.1 2001/06/05 18:45:10 layer Exp -;; $Id: tester.lisp,v 1.3 2003/07/18 19:47:07 kevin Exp $ +;; $Id: src.lisp,v 1.1 2003/07/20 18:10:22 kevin Exp $ -(defpackage :util.test - (:use :common-lisp) +(defpackage #:ptester + (:use #:cl) (:shadow #:test) (:export ;;;; Control variables: @@ -49,7 +50,7 @@ #:with-tests )) -(in-package :util.test) +(in-package #:ptester) ;; Added by Kevin Rosenberg @@ -568,7 +569,7 @@ Reason: the format-arguments were incorrect.~%") #+allegro (let ((state (sys:gsgc-switch :print))) (setf (sys:gsgc-switch :print) nil) - (format t "~&**********************************~%" ,g-name) + (format t "~&**********************************~%") (format t "End ~a test~%" ,g-name) (format t "Errors detected in this test: ~s " *test-errors*) (unless (zerop *test-unexpected-failures*) @@ -577,7 +578,7 @@ Reason: the format-arguments were incorrect.~%") (setf (sys:gsgc-switch :print) state)) #-allegro (progn - (format t "~&**********************************~%" ,g-name) + (format t "~&**********************************~%") (format t "End ~a test~%" ,g-name) (format t "Errors detected in this test: ~D " *test-errors*) (unless (zerop *test-unexpected-failures*) diff --git a/tester.asd b/tester.asd deleted file mode 100644 index 9fa45a2..0000000 --- a/tester.asd +++ /dev/null @@ -1,34 +0,0 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: tester.asd -;;;; Purpose: ASDF definition file for Tester -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Sep 2002 -;;;; -;;;; $Id: tester.asd,v 1.5 2003/07/18 19:48:36 kevin Exp $ -;;;; -;;;; This file, part of cl-tester, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; -;;;; cl-tester users are granted the rights to distribute and use this software -;;;; as governed by the terms of the GNU Lesser General Public License -;;;; (http://www.gnu.org/licenses/lgpl.html) -;;;; ************************************************************************* - -(defpackage #:tester-system (:use #:asdf #:cl)) -(in-package #:tester-system) - - -(defsystem tester - :name "cl-tester" - :author "Kevin Layer, Franz, Inc" - :version "2.2.12.2.6.1" - :maintainer "Kevin M. Rosenberg " - :licence "GNU Lesser General Public License" - :description "Franz's Test Harness Package" - :long-description "Tester provides an framework for creating automated testing progams." - - :components - ((:file "tester"))) - -- 2.34.1