sets: adding ?delete that returns a boolean if elt was deleted from set.

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

diff --git a/core/hash-sets/hash-sets-tests.factor b/core/hash-sets/hash-sets-tests.factor
index 46dc06849fb1dfc5d6f3fa965df50333566e06a1..d9a2b9c17b3ebcf24ca53b57be8e4182521b1b4f 100644 (file)
--- a/core/hash-sets/hash-sets-tests.factor
+++ b/core/hash-sets/hash-sets-tests.factor
@@ -11,8 +11,12 @@ sets sorting tools.test ;
 { f } [ 3 HS{ 0 1 2 } in? ] unit-test
 { HS{ 1 2 3 } } [ 3 HS{ 1 2 } clone [ adjoin ] keep ] unit-test
 { HS{ 1 2 } } [ 2 HS{ 1 2 } clone [ adjoin ] keep ] unit-test
+{ t } [ 1 HS{ } ?adjoin ] unit-test
+{ f } [ 1 HS{ 1 } ?adjoin ] unit-test
 { HS{ 1 2 3 } } [ 4 HS{ 1 2 3 } clone [ delete ] keep ] unit-test
 { HS{ 1 2 } } [ 3 HS{ 1 2 3 } clone [ delete ] keep ] unit-test
+{ t } [ 1 HS{ 1 } ?delete ] unit-test
+{ f } [ 1 HS{ } ?delete ] unit-test
 { HS{ 1 2 } } [ HS{ 1 2 } fast-set ] unit-test
 { { 1 2 } } [ HS{ 1 2 } members natural-sort ] unit-test