factor: refactor subseq-start

[factor.git] / core / strings / strings-tests.factor

diff --git a/core/strings/strings-tests.factor b/core/strings/strings-tests.factor
index ef071188e9583408e119af58c8e99b1b19ca9340..b6c232f9e4dd944351202ff3a83b25abe7fadf35 100644 (file)
--- a/core/strings/strings-tests.factor
+++ b/core/strings/strings-tests.factor
@@ -21,6 +21,15 @@ vectors ;
 { f } [ "amigo" "hola" subseq-start ] unit-test
 { f } [ "holaa" "hola" subseq-start ] unit-test
 
+{ 3 } [ "hola" "a" subsequence-starts ] unit-test
+{ f } [ "hola" "x" subsequence-starts ] unit-test
+{ 0 } [ "a" "" subsequence-starts ] unit-test
+{ 0 } [ "" "" subsequence-starts ] unit-test
+{ 0 } [ "hola" "hola" subsequence-starts ] unit-test
+{ 1 } [ "hola" "ol" subsequence-starts ] unit-test
+{ f } [ "hola" "amigo" subsequence-starts ] unit-test
+{ f } [ "hola" "holaa" subsequence-starts ] unit-test
+
 { "Beginning" } [ "Beginning and end" 9 head ] unit-test
 
 { f } [ CHAR: I "team" member? ] unit-test