compiler.utilities: move conjoin-at tests.

diff --git a/basis/compiler/utilities/utilities-tests.factor b/basis/compiler/utilities/utilities-tests.factor
index 7eb5f76603f332ee9af8e287ae21684a17c27c1e..724931e8ef7c19f415232004234c12af9cc95b0d 100644 (file)
--- a/basis/compiler/utilities/utilities-tests.factor
+++ b/basis/compiler/utilities/utilities-tests.factor
@@ -6,3 +6,7 @@ USING: compiler.utilities kernel tools.test ;
 } [
     7 H{ { 7 44 } { 44 9 } { 9 9 } } [ compress-path ] keep
 ] unit-test
+
+{ H{ { 3 H{ { 1 1 } { 2 2 } } } } } [
+    H{ } clone 1 3 pick conjoin-at 2 3 pick conjoin-at
+] unit-test

diff --git a/core/sets/sets-tests.factor b/core/sets/sets-tests.factor
index 0e2a23a593f49fdf443d2e73bba4cfefc2a58038..205b426dff0c7ba5b0bffffa7cfed30a2d8942e8 100644 (file)
--- a/core/sets/sets-tests.factor
+++ b/core/sets/sets-tests.factor
@@ -118,8 +118,6 @@ IN: sets.tests
 
 { H{ { 3 HS{ 1 2 } } } } [ H{ } clone 1 3 pick adjoin-at 2 3 pick adjoin-at ] unit-test
 
-{ H{ { 3 H{ { 1 1 } { 2 2 } } } } } [ H{ } clone 1 3 pick conjoin-at 2 3 pick conjoin-at ] unit-test
-
 TUPLE: null-set ;
 INSTANCE: null-set set
 M: null-set members drop f ;