Fix grouping unit test

2008-12-07 08:50:59 -06:00 · 2008-12-07 08:50:59 -06:00 · ce269c8733
parent 0290be6e93
commit ce269c8733
1 changed files with 1 additions and 1 deletions
--- a/basis/grouping/grouping-tests.factor
+++ b/basis/grouping/grouping-tests.factor
@ -5,7 +5,7 @@ IN: grouping.tests

 [ { "hell" "o wo" "rld" } ] [ "hello world" 4 group ] unit-test

-[ { V{ "a" "b" } V{ f f } } ] [
+[ { V{ "a" "b" } V{ 0 0 } } ] [
    V{ "a" "b" } clone 2 <groups>
    2 over set-length
    >array