Changeset 9241 for trunk/tests


Ignore:
Timestamp:
Apr 23, 2008, 4:16:07 PM (12 years ago)
Author:
gz
Message:

regression tests for a couple of recent fixes

File:
1 edited

Legend:

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

    r9185 r9241  
    4343      (count #\Newline (format nil "~a~&~a" line1 line2)))
    4444  1)
     45
     46(defstruct ccl.40055 (a 0 :type integer))
     47
     48(deftest ccl.40055 ;; fixed in r9237 and r9240
     49    (locally
     50        (declare (optimize (safety 3)))
     51      (and (signals-error (make-ccl.40055 :a nil) type-error)
     52           (signals-error (setf (ccl.40055-a (make-ccl.40055)) nil) type-error)))
     53  t)
     54
     55(defclass ccl.bug#285 () ())
     56
     57(defmethod initialize-instance ((c ccl.bug#285) &rest args)
     58  (declare (optimize (safety 3)))
     59  (apply #'call-next-method c args))
     60
     61(deftest ccl.bug#285
     62    (typep (make-instance 'ccl.bug#285) 'ccl.bug#285)
     63  t)
Note: See TracChangeset for help on using the changeset viewer.