Changeset 11599


Ignore:
Timestamp:
Jan 8, 2009, 3:57:09 PM (11 years ago)
Author:
gz
Message:

More tests for duplicate def warnings

File:
1 edited

Legend:

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

    r11512 r11599  
    503503                                (muffle-warning c)))))
    504504      (if test2
    505         (with-compilation-unit ()
     505        (with-compilation-unit (:override t)
    506506          (test-compile (test-source-file test1) :hide-warnings t)
    507507          (test-compile (test-source-file test2) :hide-warnings t))
     
    708708        (warning (c) c)))
    709709  nil)
     710
     711(deftest ccl.49462-redux-1
     712    (let ((file (test-source-file "(defun ccl.49462-redux-1-fn (x) x)")))
     713      (handler-case
     714          (with-compilation-unit (:override t)
     715            (test-compile file :hide-warnings t)
     716            (test-compile file :hide-warnings t)
     717            nil)
     718        (warning (c) c)))
     719  nil)
     720
     721
     722(deftest ccl.49462-redux-2
     723    (let ((file (test-source-file "(defun ccl.49462-redux-2-fn (x) x)"))
     724          (warnings ()))
     725      (handler-bind ((warning (lambda (c) (push c warnings))))
     726        (with-compilation-unit (:override t)
     727          (with-compilation-unit ()
     728            (test-compile file))
     729          (test-compile file :hide-warnings t)))
     730      (length warnings))
     731  1)
     732
    710733
    711734;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.