projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sb-bsd-sockets: Fix error code handling on Windows
[sbcl.git]
/
tests
/
defstruct.impure.lisp
diff --git
a/tests/defstruct.impure.lisp
b/tests/defstruct.impure.lisp
index
6fc914d
..
1947bbd
100644
(file)
--- a/
tests/defstruct.impure.lisp
+++ b/
tests/defstruct.impure.lisp
@@
-461,11
+461,13
@@
*manyraw*)))
(room)
(sb-ext:gc))
*manyraw*)))
(room)
(sb-ext:gc))
-(check-manyraws *manyraw*)
+(with-test (:name defstruct-raw-slot-gc)
+ (check-manyraws *manyraw*))
;;; try a full GC, too
(sb-ext:gc :full t)
;;; try a full GC, too
(sb-ext:gc :full t)
-(check-manyraws *manyraw*)
+(with-test (:name (defstruct-raw-slot-gc :full))
+ (check-manyraws *manyraw*))
;;; fasl dumper and loader also have special handling of raw slots, so
;;; dump all of them into a fasl
;;; fasl dumper and loader also have special handling of raw slots, so
;;; dump all of them into a fasl
@@
-485,7
+487,8
@@
;;; re-read the dumped structures and check them
(load "tmp-defstruct.manyraw.fasl")
;;; re-read the dumped structures and check them
(load "tmp-defstruct.manyraw.fasl")
-(check-manyraws (dumped-manyraws))
+(with-test (:name (defstruct-raw-slot load))
+ (check-manyraws (dumped-manyraws)))
\f
;;;; miscellaneous old bugs
\f
;;;; miscellaneous old bugs