improved test

pkg/inst/tinytest/test_afind.R

@@ -1,14 +1,42 @@
 
 
+texts = c("When I grow up, I want to be"
+  , "one of the harversters of the sea"
+  , "I think before my days are gone"
+  , "I want to be a fisherman")
+
+patterns = c("fish", "gone","to be")
+
+out <- afind(texts, patterns, method="osa")
+
+location <- matrix(c(
+   1,    1,  24,
+   6,    1,  28,
+   1,   28,   6,
+  16,    3,   8),
+  nrow=4, byrow=TRUE)
+
+
+distance <- matrix(c(
+   4,    3,    0,
+   2,    2,    3,
+   3,    0,    2,
+   0,    3,    0),
+   nrow=4, byrow=TRUE)
+
+match <- matrix(c(
+  "When", "When", "to be",
+  "f th", "one ", "he se",
+  "I th", "gone", "nk be",
+  "fish", "want", "to be"),
+   nrow=4, byrow=TRUE)
+
+
+expect_equal(out$location, location)
+expect_equal(out$distance, distance)
+expect_equal(out$match,    match)
 
-x <- c(
-  "when I grow up I want to be, one of the harverster of the sea"
-, "I think before my days are gone, I want to be a fisherman"
-)
 
-out <- afind(x, "gone")
-expect_equal(out$location, matrix(c(29,28),nrow=2))
-expect_equal(out$match, matrix(c(" one", "gone"),nrow=2))
 
 
 

pkg/src/Rstringdist.c

@@ -328,7 +328,7 @@ SEXP R_lower_tri(SEXP a, SEXP method
   return(yy);
 }
 
-// R_afind
+// afind
 // For each string in 'a', return the starting position of
 // the best match with 'pattern'.
 SEXP R_afind(SEXP a, SEXP pattern, SEXP width