From cfe54f896834427a008262939210e7d6f58b6c12 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 18 Aug 2009 17:20:17 -0500
Subject: [PATCH] classes, words: fix unit tests for method inlining change

---
 core/classes/classes-tests.factor | 6 ++++++
 core/words/words-tests.factor     | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/core/classes/classes-tests.factor b/core/classes/classes-tests.factor
index d7fba97977..1c1db09cf4 100644
--- a/core/classes/classes-tests.factor
+++ b/core/classes/classes-tests.factor
@@ -110,6 +110,12 @@ USE: multiline
     "class-intersect-no-method-c" parse-stream drop
 ] unit-test
 
+! Forget the above crap
+[
+    { "classes.test.a" "classes.test.b" "classes.test.c" "classes.test.d" }
+    [ forget-vocab ] each
+] with-compilation-unit
+
 TUPLE: forgotten-predicate-test ;
 
 [ ] [ [ \ forgotten-predicate-test forget ] with-compilation-unit ] unit-test
diff --git a/core/words/words-tests.factor b/core/words/words-tests.factor
index 0ecf7b65f0..c3dacbaf14 100755
--- a/core/words/words-tests.factor
+++ b/core/words/words-tests.factor
@@ -122,6 +122,6 @@ DEFER: x
 [
     all-words [
         "compiled-uses" word-prop
-        keys [ "forgotten" word-prop ] any?
-    ] filter
+        keys [ "forgotten" word-prop ] filter
+    ] map harvest
 ] unit-test