3 |
;;;; Created: Tue Dec 17 21:10:53 2002 |
;;;; Created: Tue Dec 17 21:10:53 2002 |
4 |
;;;; Contains: Package definition for RT |
;;;; Contains: Package definition for RT |
5 |
|
|
6 |
(eval-when |
|
7 |
(:execute :compile-toplevel :load-toplevel) |
;; (eval-when (:execute :compile-toplevel :load-toplevel) |
8 |
(defpackage :regression-test |
#| (defpackage :regression-test |
9 |
(:use :cl) |
(:use :cl) |
10 |
(:nicknames :rtest #-lispworks :rt) |
(:nicknames :rtest #-lispworks :rt) |
11 |
(:export |
(:export |
24 |
#:my-aref |
#:my-aref |
25 |
#:*catch-errors* |
#:*catch-errors* |
26 |
#:disable-note |
#:disable-note |
27 |
))) |
)) |
28 |
|
|# |
29 |
|
(let* ((name (symbol-name :regression-test)) |
30 |
|
(pkg (find-package name))) |
31 |
|
(unless pkg (setq pkg (make-package name |
32 |
|
:nicknames (mapcar #'symbol-name '(:rtest #-lispworks :rt)) |
33 |
|
:use '(#-wcl :cl #+wcl :lisp) |
34 |
|
))) |
35 |
|
(let ((*package* pkg)) |
36 |
|
(export (mapcar #'intern |
37 |
|
(mapcar #'symbol-name |
38 |
|
'(#:*compile-tests* |
39 |
|
#:*test* |
40 |
|
#:continue-testing |
41 |
|
#:deftest |
42 |
|
#:do-test |
43 |
|
#:do-tests |
44 |
|
#:get-test |
45 |
|
#:pending-tests |
46 |
|
#:rem-all-tests |
47 |
|
#:rem-test |
48 |
|
#:defnote |
49 |
|
#:my-aref |
50 |
|
#:*catch-errors* |
51 |
|
#:disable-note)))))) |
52 |
|
;; ) |
53 |
|
|
54 |
(in-package :regression-test) |
;; (in-package :regression-test) |