math.combinatorics: tests for <k-permutations>

diff --git a/basis/math/combinatorics/combinatorics-tests.factor b/basis/math/combinatorics/combinatorics-tests.factor
index 3111d51bbd138dcbe7377eca0a7c7004a0ac1507..a070d57e3abf04e021764897aee792dd2d4db4f8 100644 (file)
--- a/basis/math/combinatorics/combinatorics-tests.factor
+++ b/basis/math/combinatorics/combinatorics-tests.factor
@@ -112,3 +112,15 @@ math.combinatorics.private tools.test sequences sets ;
 
 { { "as" "ad" "af" "sa" "sd" "sf" "da" "ds" "df" "fa" "fs" "fd" } }
 [ "asdf" 2 <k-permutations> >array ] unit-test
+
+{ { "" } } [
+    "asdf" 0 <k-permutations> >array
+] unit-test
+
+{ { } } [
+    "" 10 <k-permutations>
+] unit-test
+
+{ { "" } } [
+    "" 0 <k-permutations> >array
+] unit-test