From e2293f15736fb00e93bf812257e273b83236d714 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 31 Mar 2013 18:52:53 -0700 Subject: [PATCH] splitting: add another test case to make sure we can access ... args. --- core/splitting/splitting-tests.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/core/splitting/splitting-tests.factor b/core/splitting/splitting-tests.factor index e27e8db340..764bf54d64 100644 --- a/core/splitting/splitting-tests.factor +++ b/core/splitting/splitting-tests.factor @@ -105,6 +105,9 @@ unit-test { { { 0 } } } [ { 0 } [ 0 > ] split*-when ] unit-test { { { 0 0 } } } [ { 0 0 } [ 0 > ] split*-when ] unit-test { { { 1 2 } { 0 } { 3 } { 0 0 } } } [ { 1 2 0 3 0 0 } [ 0 > ] split*-when ] unit-test +{ { { 1 } { 2 3 } { 1 } { 4 5 } { 1 } { 6 } } } [ + 1 { 1 2 3 1 4 5 1 6 } [ dupd = ] split*-when nip +] unit-test { "abarbbarc" } [ "afoobfooc" "foo" "bar" replace ] unit-test