|
Last change
on this file was
11599,
checked in by Mark Evenson, 16 years ago
|
|
Use HANDLER-CASE for ANSI tests to quit invoking Lisp if an error in generated.
Further incremental work on ABCL-TEST-LISP (aka the internal ABCL
tests) necessitated by the fact that both it and the ANSI tests use
the REGRESSION-TEST framework which doesn't work well in the same Lisp
instances. Trying to repackage this correctly, but it needs more work.
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Id
|
|
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 :abcl-regression-test)) |
|---|
| 30 | (pkg (find-package name))) |
|---|
| 31 | (unless pkg (setq pkg (make-package name |
|---|
| 32 | :nicknames (mapcar #'symbol-name '(:abcl-rtest #-lispworks :abcl-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 | #:do-extended-tests |
|---|
| 45 | #:get-test |
|---|
| 46 | #:pending-tests |
|---|
| 47 | #:rem-all-tests |
|---|
| 48 | #:rem-test |
|---|
| 49 | #:defnote |
|---|
| 50 | #:my-aref |
|---|
| 51 | #:*catch-errors* |
|---|
| 52 | #:*passed-tests* |
|---|
| 53 | #:*failed-tests* |
|---|
| 54 | #:disable-note |
|---|
| 55 | #:*expected-failures*)))))) |
|---|
| 56 | ;; ) |
|---|
| 57 | |
|---|
| 58 | ;; (in-package :regression-test) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
