Skip to content
Snippets Groups Projects
rt-package.lsp 2 KiB
Newer Older
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Tue Dec 17 21:10:53 2002
;;;; Contains: Package definition for RT

;; (eval-when (:execute :compile-toplevel :load-toplevel)
#| (defpackage :regression-test
    (:nicknames :rtest #-lispworks :rt)
     #:*compile-tests*
     #:*test*
     #:continue-testing
     #:deftest
     #:do-test
     #:do-tests
     #:get-test
     #:pending-tests
     #:rem-all-tests
     #:rem-test
     #:disable-note
     ))
 |#
 (let* ((name (symbol-name :regression-test))
sds's avatar
sds committed
        (pkg (find-package name)))
   (unless pkg (setq pkg (make-package name
sds's avatar
sds committed
                                       :nicknames (mapcar #'symbol-name '(:rtest #-lispworks :rt))
                                       :use '(#-wcl :cl #+wcl :lisp)
                                       )))
   (let ((*package* pkg))
     (export (mapcar #'intern
sds's avatar
sds committed
                     (mapcar #'symbol-name
                             '(#:*compile-tests*
                               #:*do-tests-when-defined*
                               #:*test*
                               #:continue-testing
                               #:deftest
                               #:do-test
                               #:do-tests
                               #:do-extended-tests
                               #:get-test
                               #:pending-tests
                               #:rem-all-tests
                               #:rem-test
                               #:defnote
                               #:my-aref
                               #:*catch-errors*
                               #:*passed-tests*
                               #:*failed-tests*
                               #:disable-note
                               #:*expected-failures*
                               #:*unexpected-failures*
                               #:*unexpected-successes*))))))
;; (in-package :regression-test)