Changeset 9864


Ignore:
Timestamp:
Jul 1, 2008, 6:18:24 PM (11 years ago)
Author:
gz
Message:

tweak some tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r9863 r9864  
    5757                                          (typep (lambda (((foo))) foo) 'function)
    5858                                          :good))")))
    59       (test-compile test :hide-warnings t :load t)
     59      (test-compile test :hide-warnings t :break-on-program-errors nil :load t)
    6060      (funcall 'cl-test::ccl.40207-fn)))
    6161  :good)
     
    133133(deftest ccl.bug#288
    134134    (let ((file (test-source-file "(prog1 (declare (ignore foo)))")))
    135       (test-compile file :hide-warnings t)
     135      (test-compile file :hide-warnings t :break-on-program-errors nil)
    136136      :no-crash)
    137137  :no-crash)
     
    139139(deftest ccl.bug#288-1 ;; follow-on bug, not really the same
    140140    (let ((file (test-source-file "(defun cl-test::ccl.bug#288-1-fn ((x integer)) x)")))
    141       (test-compile file :hide-warnings t :load t)
     141      (test-compile file :hide-warnings t :break-on-program-errors nil :load t)
    142142      (handler-case
    143143          (progn (ccl.bug#288-1-fn 17) :no-warnings)
     
    173173 ")))
    174174      (handler-case
    175           (progn (test-compile file) :no-warnings)
     175          (progn (test-compile file :break-on-program-errors nil) :no-warnings)
    176176        (warning (c) c)))
    177177  :no-warnings)
     
    185185 (defun ccl.40055-3-rfn () (require-type nil '(or ccl.40055-3-struct null)))")))
    186186      (handler-case
    187           (progn (test-compile file) :no-warnings)
     187          (progn (test-compile file :break-on-program-errors nil) :no-warnings)
    188188        (warning (c) c)))
    189189  :no-warnings)
     
    211211  (defvar *a* 1)
    212212  (defvar *b* (load-time-value *a*))")))
    213       (handler-case (progn (test-compile file) :no-warnings)
     213      (handler-case (progn (test-compile file :break-on-program-errors nil) :no-warnings)
    214214        (warning (c) c)))
    215215  :no-warnings)
     
    234234  (defun ccl.42232-2 ()
    235235    (declare (ignore bar)))")))
    236       (handler-case (progn (test-compile file) :no-warnings)
     236      (handler-case (progn (test-compile file :break-on-program-errors nil) :no-warnings)
    237237        (warning (c) :warning)))
    238238  :warning)
     
    303303  (let* ((file (test-source-file
    304304                "(defun cl-test::ccl.bug#294-3 (x y) (eq x) y)"))
    305          (warnings 0))
     305         (warnings nil))
    306306    (fmakunbound ' cl-test::ccl.bug#294-3)
    307307    (list
    308308     (let ((*error-output* (make-broadcast-stream)))
    309309       (handler-case
    310            (handler-bind ((warning (lambda (c) (incf warnings))))
     310           (handler-bind ((warning (lambda (c) (setq warnings t))))
    311311             (test-compile file :break-on-program-errors :defer))
    312312         (error (c) :error)))
    313313     warnings))
    314   (:error 1))
     314  (:error t))
    315315
    316316
     
    318318  (let* ((file (test-source-file
    319319                "(defun cl-test::ccl.bug#294-4 (x y) (eq x) y)"))
    320          (warnings 0))
     320         (warnings nil))
    321321    (fmakunbound 'cl-test::ccl.bug#294-4)
    322322    (list
    323323     (let ((*error-output* (make-broadcast-stream)))
    324        (handler-bind ((warning (lambda (c) (incf warnings))))
     324       (handler-bind ((warning (lambda (c) (setq warnings t))))
    325325         (test-compile file :break-on-program-errors nil :load t))
    326326       (handler-case (and (fboundp 'cl-test::ccl.bug#294-4)
     
    328328         (program-error (c) :program-error)))
    329329     warnings))
    330   (:program-error 1))
     330  (:program-error t))
    331331
    332332
Note: See TracChangeset for help on using the changeset viewer.