Changeset 11105 for trunk/tests


Ignore:
Timestamp:
Oct 16, 2008, 11:37:53 AM (11 years ago)
Author:
gz
Message:

Add regression tests for last two dup def warnings fixes

File:
1 edited

Legend:

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

    r10997 r11105  
    547547     "(unless (fboundp 'test.31334-7)
    548548        (defun test.41334-7 () t))")
     549  nil)
     550
     551(deftest ccl.41334-8
     552    (test-dup-warnings
     553     "(defun (setf test.41334-8) (val) val)"
     554     "(let ((closed nil))
     555         (defun (setf test.41334-8) (val) val closed))")
     556  (:duplicate-definition))
     557
     558(deftest ccl.49321
     559    (test-dup-warnings
     560     "(defclass ccl.49321 () ((x :initarg :x)))
     561      (progn
     562         (print 'ccl.49321)
     563         (let ((go (defun make-ccl.49321 (&key x) (make-instance 'ccl.49321 :x x))))
     564            go))")
    549565  nil)
    550566
Note: See TracChangeset for help on using the changeset viewer.