Changeset 9621


Ignore:
Timestamp:
May 29, 2008, 6:48:23 PM (11 years ago)
Author:
gz
Message:

Add regression test for recent checkin

File:
1 edited

Legend:

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

    r9618 r9621  
    192192  :error)
    193193
     194(deftest ccl.42232-1
     195    (let ((file (test-source-file "
     196  (defun ccl.42232-1 (foo)
     197    (declare (ignore foo))
     198    foo)")))
     199      (handler-case (progn (test-compile file) :no-warnings)
     200        (warning (c) :warning)))
     201  :warning)
     202
     203(deftest ccl.42232-2
     204    (let ((file (test-source-file "
     205  (defun ccl.42232-2 ()
     206    (declare (ignore bar)))")))
     207      (handler-case (progn (test-compile file) :no-warnings)
     208        (warning (c) :warning)))
     209  :warning)
    194210
    195211(deftest ccl.42830
Note: See TracChangeset for help on using the changeset viewer.