sets: adding test for cardinality of arrays.

diff --git a/core/sets/sets-tests.factor b/core/sets/sets-tests.factor
index 86aebb9dc3d566309fcb7a68e5744f1c725a547a..1d1413a4ae3b014c29f7bb70a48e8ecc1ec63d0d 100644 (file)
--- a/core/sets/sets-tests.factor
+++ b/core/sets/sets-tests.factor
@@ -84,6 +84,7 @@ IN: sets.tests
 [ 0 ] [ f cardinality ] unit-test
 [ 0 ] [ { } cardinality ] unit-test
 [ 1 ] [ { 1 } cardinality ] unit-test
+[ 1 ] [ { 1 1 } cardinality ] unit-test
 [ 1 ] [ HS{ 1 } cardinality ] unit-test
 [ 3 ] [ HS{ 1 2 3 } cardinality ] unit-test
 [ 0 ] [ 0 <bit-set> cardinality ] unit-test