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

diff --git a/core/splitting/splitting-tests.factor b/core/splitting/splitting-tests.factor
index e27e8db34079670b583f736876796b5062b91bc8..764bf54d647e54fad8d7f66b3716e7fc8f9eef52 100644 (file)
--- 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