rt-package.lsp 1.84 KB
Newer Older
1 2
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
3 4
;;;; Created:  Tue Dec 17 21:10:53 2002
;;;; Contains: Package definition for RT
5

6 7 8

;; (eval-when (:execute :compile-toplevel :load-toplevel)
#| (defpackage :regression-test
9
    (:use :cl)
10
    (:nicknames :rtest #-lispworks :rt)
11
    (:export
12
     #:*do-tests-when-defined*
13
     #:*compile-tests*
14 15 16 17 18 19 20 21 22
     #:*test*
     #:continue-testing
     #:deftest
     #:do-test
     #:do-tests
     #:get-test
     #:pending-tests
     #:rem-all-tests
     #:rem-test
23
     #:defnote
24
     #:my-aref
25
     #:*catch-errors*
26
     #:disable-note
27 28 29
     ))
 |#
 (let* ((name (symbol-name :regression-test))
sds's avatar
sds committed
30
        (pkg (find-package name)))
31
   (unless pkg (setq pkg (make-package name
sds's avatar
sds committed
32 33 34
                                       :nicknames (mapcar #'symbol-name '(:rtest #-lispworks :rt))
                                       :use '(#-wcl :cl #+wcl :lisp)
                                       )))
35 36
   (let ((*package* pkg))
     (export (mapcar #'intern
sds's avatar
sds committed
37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
                     (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))))))
56
;;  )
57

58
;; (in-package :regression-test)