From 665ee28bdf5b711af4cc93ebc50a88ea25d1dfeb Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 10 Dec 2005 13:32:18 +0000 Subject: [PATCH] Add a test that (setf class-name) returns the correct values --- ansi-tests/class-name.lsp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/ansi-tests/class-name.lsp b/ansi-tests/class-name.lsp index 8804f3e8..b590ac0a 100644 --- a/ansi-tests/class-name.lsp +++ b/ansi-tests/class-name.lsp @@ -26,6 +26,22 @@ (typep* #'(setf class-name) 'standard-generic-function) t) +(deftest setf-class-name.2 + (let ((sym (gensym)) + (newsym (gensym))) + (eval `(defclass ,sym () (a b c))) + (let ((class (find-class sym))) + (values + (eqlt (class-name class) sym) + (equalt + (multiple-value-list (setf (class-name (find-class sym)) newsym)) + (list newsym)) + (eqlt newsym (class-name class))))) + t t t) + + +;;; Error tests + (deftest class-name.error.1 (signals-error (class-name) program-error) t) -- GitLab