+cl-tester (1.1.1.2-1) unstable; urgency=low
+
+ * Add errorset function (closes: 182091)
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Sat, 22 Feb 2003 22:59:54 -0700
+
cl-tester (1.1.1.1-1) unstable; urgency=low
* Move .asd into upstream
;;;; 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.1 2002/09/30 10:16:25 kevin Exp $
+;; $Id: tester.lisp,v 1.2 2003/02/23 06:10:02 kevin Exp $
(defpackage :util.test
(:use :common-lisp)
(defvar *announce-test* nil) ;; if true announce each test that was done
+(defmacro errorset (form)
+ `(handler-case (cons t (multiple-value-list ,form))
+ (error (cond)
+ (format *error-output* "~&An error occurred: ~a~%" cond)
+ nil)))
+
(defun test-check (&key (predicate #'eql)
expected-result test-results test-form
multiple-values fail-info known-failure
(flet ((check (expected-result result)
(let* ((results
(multiple-value-list
- (errorset (funcall predicate expected-result result) t)))
+ (errorset (funcall predicate expected-result result))))
(failed (null (car results))))
(if* failed
then (setq predicate-failed t)