Changeset 14368 for trunk/tests


Ignore:
Timestamp:
Oct 18, 2010, 10:36:38 PM (9 years ago)
Author:
gz
Message:

Don't muffle warnings when running test, as that affects the return values from compile-file. Tweak tests to not cause warnings

Location:
trunk/tests/ansi-tests
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/add-method.lsp

    r8991 r14368  
    3434(deftest add-method.error.3
    3535  (let* ((gf (eval '(defgeneric add-method-gf-05 (x &optional y)
    36                       (:method ((x t) &optional y) 'a))))
     36                      (:method ((x t) &optional y) y 'a))))
    3737         (method (find-method #'add-method-gf-05 nil (list (find-class t))))
    3838         (gf2 (eval '(defgeneric add-method-gf-06 (x y)))))
     
    7575(deftest add-method.error.8
    7676  (let* ((gf (eval '(defgeneric add-method-gf-11 (x &key y)
    77                       (:method ((x t) &key y) 'a))))
     77                      (:method ((x t) &key y) y 'a))))
    7878         (method (find-method #'add-method-gf-11 nil (list (find-class t))))
    7979         (gf2 (eval '(defgeneric add-method-gf-12 (x)))))
  • trunk/tests/ansi-tests/compile-file.lsp

    r9050 r14368  
    3838                   (with-output-to-string
    3939                     (*standard-output* str)
    40                      (apply #'compile-file file :allow-other-keys t args))))))
     40                     (let ((*error-output* *standard-output*))
     41                       (apply #'compile-file file :allow-other-keys t args)))))))
    4142      (assert (= (length vals) 3))
    4243      (destructuring-bind
  • trunk/tests/ansi-tests/defgeneric.lsp

    r8991 r14368  
    101101   (progn
    102102     (eval '(defgeneric defgeneric-error-fn.11 (x &optional y)
    103               (:method (x &optional y z) t)))
     103              (:method (x &optional y z) x y z t)))
    104104     :bad)
    105105   (error () :good))
     
    110110   (progn
    111111     (eval '(defgeneric defgeneric-error-fn.12 (x &rest y)
    112               (:method (x) t)))
     112              (:method (x) x t)))
    113113     :bad)
    114114   (error () :good))
     
    119119   (progn
    120120     (eval '(defgeneric defgeneric-error-fn.13 (x)
    121               (:method (x &rest y) t)))
     121              (:method (x &rest y) x y t)))
    122122     :bad)
    123123   (error () :good))
     
    128128   (progn
    129129     (eval '(defgeneric defgeneric-error-fn.14 (x &key)
    130               (:method (x) t)))
     130              (:method (x) x t)))
    131131     :bad)
    132132   (error () :good))
     
    137137   (progn
    138138     (eval '(defgeneric defgeneric-error-fn.15 (x &key y)
    139               (:method (x) t)))
     139              (:method (x) x t)))
    140140     :bad)
    141141   (error () :good))
     
    146146   (progn
    147147     (eval '(defgeneric defgeneric-error-fn.16 (x)
    148               (:method (x &key) t)))
     148              (:method (x &key) x t)))
    149149     :bad)
    150150   (error () :good))
     
    155155   (progn
    156156     (eval '(defgeneric defgeneric-error-fn.17 (x)
    157               (:method (x &key foo) t)))
     157              (:method (x &key foo) x foo t)))
    158158     :bad)
    159159   (error () :good))
     
    164164   (progn
    165165     (eval '(defgeneric defgeneric-error-fn.18 (x &key foo)
    166               (:method (x &key) t)))
     166              (:method (x &key) x t)))
    167167     :bad)
    168168   (error () :good))
     
    173173   (progn
    174174     (eval '(defgeneric defgeneric-error-fn.19 (x &key foo)
    175               (:method (x &key bar) t)))
     175              (:method (x &key bar) x bar t)))
    176176     :bad)
    177177   (error () :good))
  • trunk/tests/ansi-tests/defmethod.lsp

    r8991 r14368  
    222222(deftest defmethod.error.15
    223223  (let ((sym (gensym)))
    224     (eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t) &key y) x)))
     224    (eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t) &key y) y x)))
    225225    (values (eval `(signals-error (,sym 1 :bogus t) program-error))
    226226            (eval `(signals-error (,sym 1 :y) program-error))
  • trunk/tests/ansi-tests/documentation.lsp

    r8991 r14368  
    310310    (eval `(defun ,sym () (declare (special *x*)) *x*))
    311311    (eval `(define-setf-expander ,sym ()
    312              (let ((g (gemsym)))
     312             (let ((g (gensym)))
    313313               (values nil nil (list g) `(locally (declare (special *x*)) (setf *x* ,g))
    314314                       '(locally (declare (special *x*)) *x*)))))
     
    326326    (eval `(defmacro ,sym () `(locally (declare (special *x*)) *x*)))
    327327    (eval `(define-setf-expander ,sym ()
    328              (let ((g (gemsym)))
     328             (let ((g (gensym)))
    329329               (values nil nil (list g) `(locally (declare (special *x*)) (setf *x* ,g))
    330330                       '(locally (declare (special *x*)) *x*)))))
  • trunk/tests/ansi-tests/format-f.lsp

    r8991 r14368  
    429429              (total 0)
    430430              (len 0))
     431          total len
    431432          (loop for i from (- 1 (ash 1 13)) below (ash 1 13)
    432433                unless (zerop i)
  • trunk/tests/ansi-tests/macro-function.lsp

    r9050 r14368  
    7070(deftest macro-function.10
    7171  (let ((sym (gensym)))
    72     (eval `(defun ,sym (x) :bad))
     72    (eval `(defun ,sym (x) x :bad))
    7373    (handler-bind ((warning #'muffle-warning))
    7474      (setf (macro-function sym) (macro-function 'pop)))
  • trunk/tests/ansi-tests/macrolet.lsp

    r9045 r14368  
    389389      (eval `(macrolet ((%m (*x-in-macrolet.43*)
    390390                            (declare (special *f*))
     391                            *x-in-macrolet.43*
    391392                            (funcall *f*)))
    392393               (%m t)))))
  • trunk/tests/ansi-tests/misc.lsp

    r9860 r14368  
    12771277             (declare (optimize speed))
    12781278             (block b6
    1279                (flet ((%f8 (f8-1 f8-2) b))
     1279               (flet ((%f8 (f8-1 f8-2) f8-1 f8-2 b))
    12801280                 (%f8 (%f8 c 338) (if t (return-from b6 a) c))))))
    12811281    (misc.106-fn -30271 -1 -3043))
     
    15961596  (let* ((fn1 '(lambda (b)
    15971597                 (declare (optimize (safety 1)))
    1598                  (labels ((%f7 (f7-1 f7-2)
     1598                 (labels ((%f7 (f7-1 f7-2) f7-1 f7-2
    15991599                               (let ((v2 (setq b 723149855)))
    16001600                                 25620)))
     
    20702070               (block b5
    20712071                 (let ((v1 (let ((v8 (unwind-protect 9365)))
     2072                             v8
    20722073                             8862008)))
    20732074                   (*
     
    31743175             (declare (optimize (speed 0)))
    31753176             (declare (optimize (debug 0)))
    3176              (flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0))
     3177             a b c
     3178             (flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0)) f7-1 f7-2
    31773179                         c))
    31783180               (let ((v8
     
    31803182                                   0))
    31813183                        0)))
     3184                 v8
    31823185                 (%f7 b))))))
    31833186   '(2374299 70496 -6321798384))
  • trunk/tests/ansi-tests/rt.lsp

    r12046 r14368  
    277277                (if *catch-errors*
    278278                    (handler-bind
    279                      (#-ecl (style-warning #'(lambda (c) (if (has-note entry :do-not-muffle-warnings)
     279                     (#-(or ecl ccl) (style-warning #'(lambda (c) (if (has-note entry :do-not-muffle-warnings)
    280280                                                             c
    281281                                                           (muffle-warning c))))
Note: See TracChangeset for help on using the changeset viewer.