source: trunk/tests/ansi-tests/gclload1.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.5 KB
Line 
1#+:ecl (si::package-lock (find-package "COMMON-LISP") nil)
2#+:armedbear (require 'pprint)
3
4#+cmu (setq ext:*gc-verbose* nil)
5
6#+gcl (setq compiler:*suppress-compiler-notes* t
7            compiler:*suppress-compiler-warnings* t
8            compiler:*compile-verbose* nil
9            compiler:*compile-print* nil)
10
11#+lispworks (setq compiler::*compiler-warnings* nil)
12#+lispworks (make-echo-stream *standard-input* *standard-output*)
13
14#+ecl (compile nil '(lambda () nil))
15
16#+ecl (setq c:*suppress-compiler-warnings* t c:*suppress-compiler-notes* t)
17
18#+clisp (setq custom::*warn-on-floating-point-contagion* nil)
19
20(let (#-openmcl *load-verbose* *load-print* *compile-verbose* *compile-print*)
21  (load "compile-and-load.lsp"))
22
23(let (#-openmcl *load-verbose* *load-print* *compile-verbose* *compile-print*)
24  (load "rt-package.lsp")
25  (compile-and-load "rt.lsp" :force t)
26  ;; (unless (probe-file "rt.o") (compile-file "rt.lsp"))
27  ;; (load "rt.o")
28  (load "cl-test-package.lsp")
29  (in-package :cl-test)
30  (compile-and-load "ansi-aux-macros.lsp" :force t)
31  (handler-bind
32   #-sbcl ()
33   #+sbcl ((sb-ext:code-deletion-note #'muffle-warning))
34   (load "universe.lsp"))
35  (compile-and-load "random-aux.lsp" :force t)
36  (compile-and-load "ansi-aux.lsp" :force t)
37  ;; (unless (probe-file "ansi-aux.o") (compile-file "ansi-aux.lsp"))
38  ;; (load "ansi-aux.o")
39 
40  (load "cl-symbol-names.lsp")
41  (load "notes.lsp"))
42
43(setq *compile-verbose* nil
44      *compile-print* nil
45      *load-verbose* nil)
46
Note: See TracBrowser for help on using the repository browser.