sets: update tests.

diff --git a/core/sets/sets-tests.factor b/core/sets/sets-tests.factor
index 205b426dff0c7ba5b0bffffa7cfed30a2d8942e8..b53edbcfb736238d9e3947993b409523fb03089e 100644 (file)
--- a/core/sets/sets-tests.factor
+++ b/core/sets/sets-tests.factor
@@ -104,14 +104,13 @@ IN: sets.tests
 { { 1 } } [ { 1 2 3 } { 2 3 4 } without ] unit-test
 { { 1 1 } } [ { 1 1 2 3 3 } { 2 3 4 4 } without ] unit-test
 
-! combine
-{ { 1 2 3 } } [ { { 1 } { 2 } { 1 3 } } combine ] unit-test
 { f } [ { } combine ] unit-test
+{ { 1 2 3 } } [ { { 1 } { 2 } { 1 3 } } combine ] unit-test
 
-! refine
-{ { 2 } } [
-    { { 2 3 } { 2 4 } { 9 8 4 2 } } refine
-] unit-test
+{ f } [ { } refine ] unit-test
+{ HS{ } } [ { HS{ } } refine ] unit-test
+{ HS{ 1 } } [ { HS{ 1 2 3 } HS{ 1 } } refine ] unit-test
+{ { 2 } } [ { { 2 3 } { 2 4 } { 9 8 4 2 } } refine ] unit-test
 
 { { 1 4 9 16 25 36 } }
 [ { { 1 2 3 } { 4 5 6 } } [ [ sq ] map ] gather ] unit-test
@@ -140,10 +139,6 @@ M: null-set members drop f ;
 { HS{ 1 } } [ HS{ } HS{ 1 } union! ] unit-test
 { HS{ 1 2 3 } } [ HS{ 1 } HS{ 1 2 3 } union! ] unit-test
 
-{ f } [ { } intersection ] unit-test
-{ HS{ } } [ { HS{ } } intersection ] unit-test
-{ HS{ 1 } } [ { HS{ 1 2 3 } HS{ 1 } } intersection ] unit-test
-
 { HS{ } } [ HS{ } HS{ } diff! ] unit-test
 { HS{ 1 } } [ HS{ 1 2 3 } HS{ 2 3 } diff! ] unit-test
 { HS{ 1 } } [ HS{ 1 } HS{ 2 3 4 } diff! ] unit-test