From b5700cd3f5589e60feafbe92c39cbc940eb1165d Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Mon, 29 Jul 2013 22:27:17 +0200
Subject: [PATCH] circular-while*, add corner case test

---
 basis/circular/circular-tests.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/basis/circular/circular-tests.factor b/basis/circular/circular-tests.factor
index 9f2a22659b..46a32be773 100644
--- a/basis/circular/circular-tests.factor
+++ b/basis/circular/circular-tests.factor
@@ -48,3 +48,9 @@ IN: circular.tests
         [ [ push ] [ length 5 < ] bi ] curry circular-while*
     ] keep
 ] unit-test
+
+[ V{ 1 } ] [
+    { 1 2 3 } <circular> V{ } [
+        [ push f ] curry circular-while*
+    ] keep
+] unit-test