From c5601cd86e09de0b9f7c926d29270bc9452ed022 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 17 Sep 2011 09:00:43 -0700
Subject: [PATCH] tools.completion: add test that empty completions preserve
 order.

---
 basis/tools/completion/completion-tests.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/tools/completion/completion-tests.factor b/basis/tools/completion/completion-tests.factor
index 316bc513cc..0c1909c445 100644
--- a/basis/tools/completion/completion-tests.factor
+++ b/basis/tools/completion/completion-tests.factor
@@ -12,3 +12,7 @@ IN: tools.completion
 [ { "nth" "?nth" "set-nth" } ] [
     "nth" { "set-nth" "nth" "?nth" } dup zip completions keys
 ] unit-test
+
+[ { "a" "b" "c" "d" "e" "f" "g" } ] [
+    "" { "a" "b" "c" "d" "e" "f" "g" } dup zip completions keys
+] unit-test