bit-sets: adjust M\ bit-set set-like to match capacity

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

diff --git a/core/sets/sets-tests.factor b/core/sets/sets-tests.factor
index 4d27f8c8e0e519e3f92892c9381c622286e151c6..b16e97475d0f68bfaee27a82d782ba5f044b961b 100644 (file)
--- a/core/sets/sets-tests.factor
+++ b/core/sets/sets-tests.factor
@@ -27,7 +27,7 @@ IN: sets.tests
 { { 1 2 3 } } [ HS{ 1 2 3 } { } set-like sort ] unit-test
 { { 1 2 3 } } [ { 1 2 2 3 3 } { } set-like ] unit-test
 { { 3 2 1 } } [ { 3 3 2 2 1 } { } set-like ] unit-test
-{ t } [ 4 <bit-set> 1 <bit-set> set-like 4 <bit-set> = ] unit-test
+{ t } [ 4 <bit-set> 1 <bit-set> set-like 1 <bit-set> = ] unit-test
 { t } [ { 1 2 3 } HS{ } set-like HS{ 1 2 3 } = ] unit-test
 
 { HS{ 1 2 3 } } [ { 1 2 3 } fast-set ] unit-test