From f395f240d388ddace7a948a4244f7542c3ddef57 Mon Sep 17 00:00:00 2001
From: olus2000 <alsabak@gmail.com>
Date: Fri, 29 Dec 2023 09:38:57 +0100
Subject: [PATCH] math.combinatorics: tests for <k-permutations>

---
 basis/math/combinatorics/combinatorics-tests.factor | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/basis/math/combinatorics/combinatorics-tests.factor b/basis/math/combinatorics/combinatorics-tests.factor
index 3111d51bbd..a070d57e3a 100644
--- 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
-- 
2.34.1