factor: refactor subseq-start

[factor.git] / extra / combinators / extras / extras-tests.factor

diff --git a/extra/combinators/extras/extras-tests.factor b/extra/combinators/extras/extras-tests.factor
index 54f057449378827e30730e7dec3a2aa39ddfc91e..506dedb3155def7e26116a9485cb98069951dd43 100644 (file)
--- a/extra/combinators/extras/extras-tests.factor
+++ b/extra/combinators/extras/extras-tests.factor
@@ -63,6 +63,29 @@ IN: combinators.extras.tests
     } cond*
 ] unit-test
 
+{ "hi " "there" } [
+    "hi there" {
+        { [ dup "there" subsequence-starts ] [ cut ] }
+        [ f ]
+    } cond*
+] unit-test
+
+{ "hi " "there" } [
+    "hi there" {
+        { [ dup "foo" subsequence-starts ] [ head f ] }
+        { [ dup "there" subsequence-starts ] [ cut ] }
+        [ f ]
+    } cond*
+] unit-test
+
+{ "hi there" f } [
+    "hi there" {
+        { [ dup "foo" subsequence-starts ] [ head f ] }
+        { [ dup "bar" subsequence-starts ] [ cut ] }
+        [ f ]
+    } cond*
+] unit-test
+
 { f } [ f { } chain ] unit-test
 { 3 } [ H{ { 1 H{ { 2 3 } } } } { [ 1 of ] [ 2 of ] } chain ] unit-test
 { f } [ H{ { 1 H{ { 3 4 } } } } { [ 1 of ] [ 2 of ] } chain ] unit-test