circular-while*, add corner case test

2013-07-29 22:27:17 +02:00 · 2013-07-29 22:27:17 +02:00 · b5700cd3f5
parent 2dba2504fa
commit b5700cd3f5
1 changed files with 6 additions and 0 deletions
--- 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