← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to contrib/rt/rt.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2007-04-09 11:51:51 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070409115151-ql8cr0kalzx1jmla
Tags: 0.9i-20070324-2
Upload to unstable. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/rt/rt.lisp
20
20
 |----------------------------------------------------------------------------|#
21
21
 
22
22
(defpackage :sb-rt
23
 
  (:nicknames :rt)
 
23
  (:nicknames :rt :regression-test)
24
24
  (:use #:cl)
25
25
  (:export #:*do-tests-when-defined* #:*test* #:continue-testing
26
26
           #:deftest #:do-test #:do-tests #:get-test #:pending-tests
166
166
                           (funcall (compile
167
167
                                     nil
168
168
                                     `(lambda ()
169
 
                                        (declare
170
 
                                         (optimize ,@*optimization-settings*))
171
 
                                        ,(form entry)))))
172
 
                        (multiple-value-list
173
 
                         (eval (form entry))))))
 
169
                                       (declare
 
170
                                        (optimize ,@*optimization-settings*))
 
171
                                       ,(form entry)))))
 
172
                          (multiple-value-list
 
173
                           (eval (form entry))))))
174
174
                (if *catch-errors*
175
175
                    (handler-bind
176
176
                        ((style-warning #'muffle-warning)
196
196
                  (vals entry))
197
197
          (format s "Actual value~P: ~
198
198
                      ~{~S~^~%~15t~}.~%"
199
 
                  (length r) r)))))
 
199
                  (length r) r)
 
200
          (let ((x (first r)))
 
201
            (when (typep x 'condition)
 
202
              (format s "~&Condition: ~A" x)))
 
203
          ))))
200
204
  (when (not (pend entry)) *test*))
201
205
 
202
206
(defun continue-testing ()