/[gcl]/gcl/ansi-tests/rt-test.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/rt-test.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Wed Feb 19 13:24:00 2003 UTC revision 1.2 by pfdietz, Sun Feb 23 17:11:14 2003 UTC
# Line 27  Line 27 
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)))
# Line 35  Line 35 
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)
# Line 46  Line 46 
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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26