;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003
;;;;
-;;;; $Id: base64-tests.lisp,v 1.1 2003/04/15 15:34:43 kevin Exp $
+;;;; $Id: base64-tests.lisp,v 1.2 2003/04/15 15:44:07 kevin Exp $
;;;; *************************************************************************
(in-package :cl-user)
(in-package #:base64-test)
(defun test-base64 ()
+ (setq *break-on-test-failures* t)
(with-tests (:name "cl-base64 tests")
(do* ((length 0 (+ 3 length))
(string (make-string length) (make-string length))
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: base64.asd,v 1.6 2003/04/15 15:37:44 kevin Exp $
+;;;; $Id: base64.asd,v 1.7 2003/04/15 15:39:26 kevin Exp $
;;;; *************************************************************************
(in-package :asdf)
:perform (load-op :after (op base64)
(pushnew :base64 cl:*features*))
- :depends-on (:kmrcl) ;; only for test-op
+ :depends-on (:kmrcl :tester) ;; only for test-op
:components
((:file "package")