circular-while*, add corner case test

diff --git a/basis/circular/circular-tests.factor b/basis/circular/circular-tests.factor
index 9f2a22659b0baf8877253106028bef53c0426a53..46a32be773e6cadcb200df415ffb064d776b6ee6 100644 (file)
--- 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