mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add class-forward-reference regression test (fixed in last commit)

Browse source
This commit is contained in:
Daniel Kochmanski 2018-04-08 11:09:11 +02:00
parent ead9ab4f38
commit 28d245631e
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/tests/normal-tests/metaobject-protocol.lsp
View file

@ -625,8 +625,8 @@ the metaclass")
;;;
;;; Reported 2016-05-30
;;;
;;; Description: DEFGENERIC doesn't create methods on same pass as
;;; creating generics.
;;; Description: DEFGENERIC doesn't create methods on same pass as creating
;;; generics.
(test mop.0021.ensure-generic
(is (progn (fmakunbound 'mop.0021.ensure-generic.fun)
(defun mop.0021.ensure-generic.fun () 'hi)
@ -656,3 +656,11 @@ the metaclass")
(defmethod initialize-instance :after ((obj foo) &key test) test)
(finishes (make-instance 'foo :test "hi"))
(signals error (make-instance 'foo :test "hi" :bam "bye"))))
;;; Ensure that forward-referenced classes work as expected.
(ext:with-clean-symbols (foo1 foo2)
(test mop.0024.frc
(finishes (defclass foo1 (foo2) ()))
(signals (make-instance 'foo1))
(finishes (defclass foo2 (foo) ()))
(finishes (make-instance 'foo1))))