Forget some classes after unit tests so that running "classes" test succeeds multiple...

diff --git a/basis/classes/struct/struct-tests.factor b/basis/classes/struct/struct-tests.factor
index 5c3f8bb31bdffb8eb4546465ed51ea58c1c39398..aad8c1759d4dcfd6f2472b0306aae4acde3fc908 100644 (file)
--- a/basis/classes/struct/struct-tests.factor
+++ b/basis/classes/struct/struct-tests.factor
@@ -8,7 +8,7 @@ destructors io.encodings.utf8 io.pathnames io.streams.string
 kernel libc literals math mirrors namespaces prettyprint
 prettyprint.config see sequences specialized-arrays system
 tools.test parser lexer eval layouts generic.single classes
-vocabs generic classes.private ;
+vocabs generic classes.private definitions ;
 FROM: math => float ;
 FROM: specialized-arrays.private => specialized-array-vocab ;
 QUALIFIED-WITH: alien.c-types c
@@ -553,3 +553,4 @@ STRUCT: some-accessors { aaa uint } { bbb int } ;
 [ f ] [ \ some-accessors \ clone ?lookup-method ] unit-test
 [ f ] [ \ some-accessors \ struct-slot-values ?lookup-method ] unit-test
 
+<< \ some-accessors forget >>

diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index b6af0b39fb58e3a691d3edbb216443d757604da0..481d693925a382b5defb83d380c9d040fc6640bd 100644 (file)
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -817,3 +817,4 @@ TUPLE: rclasstest a b ;
 [ f ] [ \ rclasstest \ b>> ?lookup-method ] unit-test
 [ f ] [ \ rclasstest \ b<< ?lookup-method ] unit-test
 
+<< \ rclasstest forget >>