Changeset 12051 for trunk/tests


Ignore:
Timestamp:
May 14, 2009, 11:03:30 AM (10 years ago)
Author:
gz
Message:

more proclaim errors tests

File:
1 edited

Legend:

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

    r12049 r12051  
    956956                            (defclass ccl.49345-fwd-type () ())")
    957957  ())
     958
     959(deftest ccl.57879-1
     960    (test-compiler-warning "(defun foo (x) (declare (ccl.57879-1 'foo)) x)")
     961  (:unknown-declaration))
     962
     963(deftest ccl.57879-2
     964    (handler-case
     965        (test-compile (test-source-file "(proclaim '(ccl.57879-2 3))") :hide-warnings t :load t)
     966      (program-error () :error))
     967  :error)
     968
     969(deftest ccl.57879-3
     970    (test-compiler-warning "(declaim (ccl.57879-3 3))")
     971  (:unknown-declaration))
     972
     973(deftest ccl.57879-4
     974    (handler-case
     975        (test-compile (test-source-file "(proclaim '(optimize (ccl.57879-4a ccl.57879-4b)))") :hide-warnings t :load t)
     976      (program-error () :error))
     977  :error)
     978
     979(deftest ccl.57879-5
     980    (test-compiler-warning "(declaim (optimize (ccl.57879-5a ccl.57879-5b)))")
     981  (:unknown-declaration))
    958982
    959983(deftest ccl.bug#470
Note: See TracChangeset for help on using the changeset viewer.