sequences: add some tests for repetition.

2013-08-05 09:56:10 -07:00 · 2013-08-05 09:56:10 -07:00 · 086bba3403
parent 8aae6a68a6
commit 086bba3403
1 changed files with 5 additions and 0 deletions
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@ -381,3 +381,8 @@ USE: make
        { 255 0 175 }
    } [ { 0 0 255 } distance ] infimum-by
 ] unit-test
+
+[ -1 0 <repetition> ] must-fail
+{ { } } [ 0 0 <repetition> >array ] unit-test
+{ { 0 } } [ 1 0 <repetition> >array ] unit-test
+{ { 0 0 0 } } [ 3 0 <repetition> >array ] unit-test