Merge branch 'master' into global_optimization

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

diff --git a/core/assocs/assocs-tests.factor b/core/assocs/assocs-tests.factor
index c473ac0dfa1747e16a629ce5b43db61641b6e53c..75607b0258cb317c05168e30031593f03e9061c8 100644 (file)
--- a/core/assocs/assocs-tests.factor
+++ b/core/assocs/assocs-tests.factor
@@ -130,3 +130,7 @@ unit-test
 
 [ 1 f ] [ 1 H{ } ?at ] unit-test
 [ 2 t ] [ 1 H{ { 1 2 } } ?at ] unit-test
+
+[ f ] [ 1 2 H{ { 2 1 } } maybe-set-at ] unit-test
+[ t ] [ 1 3 H{ { 2 1 } } clone maybe-set-at ] unit-test
+[ t ] [ 3 2 H{ { 2 1 } } clone maybe-set-at ] unit-test