27 |
|
|
28 |
(in-package :user) |
(in-package :user) |
29 |
;; (require "RT") |
;; (require "RT") |
30 |
(use-package :rt) |
(use-package :regression-tes) |
31 |
|
|
32 |
(defmacro setup (&rest body) |
(defmacro setup (&rest body) |
33 |
`(do-setup '(progn ., body))) |
`(do-setup '(progn ., body))) |
35 |
(defun do-setup (form) |
(defun do-setup (form) |
36 |
(let ((*test* nil) |
(let ((*test* nil) |
37 |
(*do-tests-when-defined* nil) |
(*do-tests-when-defined* nil) |
38 |
(rt::*entries* (list nil)) |
(regression-test::*entries* (list nil)) |
39 |
(rt::*in-test* nil) |
(regression-test::*in-test* nil) |
40 |
(rt::*debug* t) |
(regression-test::*debug* t) |
41 |
result) |
result) |
42 |
(deftest t1 4 4) |
(deftest t1 4 4) |
43 |
(deftest (t 2) 4 3) |
(deftest (t 2) 4 3) |
46 |
(with-output-to-string (*standard-output*) |
(with-output-to-string (*standard-output*) |
47 |
(setq result |
(setq result |
48 |
(multiple-value-list |
(multiple-value-list |
49 |
(catch 'rt::*debug* (eval form)))))) |
(catch 'regression-test::*debug* (eval form)))))) |
50 |
result)))) |
result)))) |
51 |
|
|
52 |
(defun normalize (string) |
(defun normalize (string) |