Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
665ee28b
Commit
665ee28b
authored
Dec 10, 2005
by
pfdietz
Browse files
Add a test that (setf class-name) returns the correct values
parent
74980415
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/class-name.lsp
View file @
665ee28b
...
...
@@ -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)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment