source: trunk/source/tests/ansi-tests/rt-package.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 11 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 1.4 KB
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Tue Dec 17 21:10:53 2002
4;;;; Contains: Package definition for RT
5
6
7;; (eval-when (:execute :compile-toplevel :load-toplevel)
8#| (defpackage :regression-test
9    (:use :cl)
10    (:nicknames :rtest #-lispworks :rt)
11    (:export
12     #:*do-tests-when-defined*
13     #:*compile-tests*
14     #:*test*
15     #:continue-testing
16     #:deftest
17     #:do-test
18     #:do-tests
19     #:get-test
20     #:pending-tests
21     #:rem-all-tests
22     #:rem-test
23     #:defnote
24     #:my-aref
25     #:*catch-errors*
26     #: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                               #:*do-tests-when-defined*
40                               #:*test*
41                               #:continue-testing
42                               #:deftest
43                               #:do-test
44                               #:do-tests
45                               #:do-extended-tests
46                               #:get-test
47                               #:pending-tests
48                               #:rem-all-tests
49                               #:rem-test
50                               #:defnote
51                               #:my-aref
52                               #:*catch-errors*
53                               #:*passed-tests*
54                               #:*failed-tests*
55                               #:disable-note))))))
56;;  )
57
58;; (in-package :regression-test)
Note: See TracBrowser for help on using the repository browser.