Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
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
6e1264d6
Commit
6e1264d6
authored
May 06, 2003
by
pfdietz
Browse files
Fixed some busted tests, added new tests.
parent
5ae9b866
Changes
1
Show whitespace changes
Inline
Side-by-side
ansi-tests/update-instance-for-different-class.lsp
View file @
6e1264d6
...
...
@@ -41,10 +41,43 @@
(eqt obj (change-class obj new-class))
(typep* obj new-class)
(map-slot-boundp* obj '(a b))
(slot-value obj 'a)
(slot-value obj 'b)))
(t nil)
t t
(t t)
1 1)
(deftest update-instance-for-different-class.3
(let ((obj (make-instance 'uifdc-class-01a :b 1))
(new-class (find-class 'uifdc-class-01b)))
(values
(map-slot-boundp* obj '(a b))
(eqt obj (change-class obj new-class))
(typep* obj new-class)
(map-slot-boundp* obj '(a b))
(slot-value obj 'a)
(slot-value obj 'b)))
(nil t)
1)
t t
(t t)
1 1)
(deftest update-instance-for-different-class.4
(let ((obj (make-instance 'uifdc-class-01a :a 1 :b 2))
(new-class (find-class 'uifdc-class-01b)))
(values
(map-slot-boundp* obj '(a b))
(eqt obj (change-class obj new-class))
(typep* obj new-class)
(map-slot-boundp* obj '(a b))
(slot-value obj 'a)
(slot-value obj 'b)))
(t t)
t t
(t t)
2 1)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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