multisets: Fix multiset-clear (size was not reset)

[factor.git] / extra / multisets / multisets-tests.factor

diff --git a/extra/multisets/multisets-tests.factor b/extra/multisets/multisets-tests.factor
index a7272281262e14073294ad6be47c66e16ddd56bc..640b7e5dbeb1f6403bf74393033c1fd4301d1bc8 100644 (file)
--- a/extra/multisets/multisets-tests.factor
+++ b/extra/multisets/multisets-tests.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2022 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel multisets prettyprint tools.test ;
+USING: accessors kernel multisets prettyprint tools.test ;
 IN: multisets.tests
 
 { multiset{ } } [
@@ -30,3 +30,7 @@ IN: multisets.tests
 
 
 { } [ multiset{ 100 100 } [ . ] multiset-each ] unit-test
+
+{ 0 } [ multiset{ } size>> ] unit-test
+{ 0 } [ multiset{ 100 100 } [ multiset-clear ] [ size>> ] bi ] unit-test
+{ 2 } [ multiset{ 100 100 } size>> ] unit-test