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

Last change on this file since 9045 was 9045, checked in by gz, 12 years ago

Assorted cleanup:

In infrastructure:

  • add *test-verbose* and :verbose argument to do-test and do-tests. Avoid random output if false, only show failures
  • muffle-wawrnings and/or bind *suppress-compiler-warnings* in some tests that unavoidably generate them (mainly with duplicate typecase/case clauses)
  • Add record-source-file for tests so meta-. can find them
  • If *catch-errors* (or the :catch-errors arg) is :break, enter a breakloop when catch an error
  • Make test fns created by *compile-tests* have names, so can find them in backtraces
  • fix misc compiler warnings
  • Fixed cases of duplicate test numbers
  • Disable note :make-condition-with-compound-name for openmcl.

In tests themselves:

I commented out the following tests with #+bogus-test, because they just seemed wrong to me:

lambda.47
lambda.50
upgraded-array-element-type.8
upgraded-array-element-type.nil.1
pathname-match-p.5
load.17
load.18
macrolet.47
ctypecase.15

In addition, I commented out the following tests with #+bogus-test because I was too lazy to make a note
for "doesn't signal underflow":

exp.error.8 exp.error.9 exp.error.10 exp.error.11 expt.error.8 expt.error.9 expt.error.10 expt.error.11

Finally, I entered bug reports in trac, and then commented out the tests
below with #+known-bug-NNN, where nnn is the ticket number in trac:

ticket#268: encode-universal-time.3 encode-universal-time.3.1
ticket#269: macrolet.36
ticket#270: values.20 values.21
ticket#271: defclass.error.13 defclass.error.22
ticket#272: phase.10 phase.12 asin.5 asin.6 asin.8
ticket#273: phase.18 phase.19 acos.8
ticket#274: exp.error.4 exp.error.5 exp.error.6 exp.error.7
ticket#275: car.error.2 cdr.error.2
ticket#276: map.error.11
ticket#277: subtypep.cons.43
ticket#278: subtypep-function.3
ticket#279: subtypep-complex.8
ticket#280: open.output.19 open.io.19 file-position.8 file-length.4 file-length.5 read-byte.4 stream-element-type.2 stream-element-type.3
ticket#281: open.65
ticket#288: set-syntax-from-char.sharp.1

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                               #:*test-verbose*
54                               #:*passed-tests*
55                               #:*failed-tests*
56                               #:disable-note))))))
57;;  )
58
59;; (in-package :regression-test)
Note: See TracBrowser for help on using the repository browser.