From df64529fb58eb4ad7182acfe65555ee4da9f029a Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 24 Oct 2011 16:59:46 -0700 Subject: [PATCH] Forget some classes after unit tests so that running "classes" test succeeds multiple times in a row --- basis/classes/struct/struct-tests.factor | 3 ++- core/classes/tuple/tuple-tests.factor | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/basis/classes/struct/struct-tests.factor b/basis/classes/struct/struct-tests.factor index 5c3f8bb31b..aad8c1759d 100644 --- 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 b6af0b39fb..481d693925 100644 --- 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 >>