splitting: add another test case to make sure we can access ... args.

2013-03-31 18:52:53 -07:00 · 2013-03-31 18:52:53 -07:00 · e2293f1573
parent 4c58df1218
commit e2293f1573
1 changed files with 3 additions and 0 deletions
--- 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