assocs: move some -of words to extras

[factor.git] / core / assocs / assocs-tests.factor

diff --git a/core/assocs/assocs-tests.factor b/core/assocs/assocs-tests.factor
index 2ace53d834547037fd324e24fc10b3b9b88284bc..931da8f2e013b5f2d90bea79deb2fe0f9849c0b8 100644 (file)
--- a/core/assocs/assocs-tests.factor
+++ b/core/assocs/assocs-tests.factor
@@ -345,43 +345,3 @@ unit-test
 { H{ { 1 4 } } } [ H{ { 1 2 } } 1 over [ sq ] ?change-at ] unit-test
 { H{ { 1 2 } } } [ H{ { 1 2 } } 2 over [ sq ] ?change-at ] unit-test
 { H{ { 1 3 } } } [ H{ { 1 2 } } 3 1 pick [ drop dup ] ?change-at drop ] unit-test
-
-{ H{ { 1 100 } } } [
-    H{ } clone 1 100 set-of
-] unit-test
-
-{ H{ { 1 V{ 100 200 } } } } [
-    H{ } clone 1 100 push-of 1 200 push-of
-] unit-test
-
-{ H{ { 123 556 } } } [
-    H{ { 123 456 } } 123 [ 100 + ] change-of
-] unit-test
-
-{ H{ { 123 556 } } } [
-    H{ { 123 456 } } 123 [ 100 + ] ?change-of
-] unit-test
-
-{ H{ { 123 456 } } } [
-    H{ { 123 456 } } 1234 [ 100 + ] ?change-of
-] unit-test
-
-{ H{ { 10 2 } } } [
-    H{ { 10 1 } } 10 inc-of
-] unit-test
-
-{ H{ { 10 1001 } } } [
-    H{ { 10 1 } } 10 1000 of+
-] unit-test
-
-{ H{ { 1 100 } } f } [
-    H{ { 1 100 } } 1 100 maybe-set-of
-] unit-test
-
-{ H{ { 1 100 } { 2 100 } } t } [
-    H{ { 1 100 } } 2 100 maybe-set-of
-] unit-test
-
-{ H{ { 1 100 } } t } [
-    H{ { 1 100 } } 1 101 maybe-set-of
-] unit-test
\ No newline at end of file