tests/testthat/test_split.R

In PeteHaitch/rope: Syntactic Sugar for Strings in Rcpp

context("Test string splitting")

test_that("single strings can be split",{
  result <- rope:::string_split_single("this is a string", " ")
  expect_that(result, equals(c("this","is","a", "string")))
})

test_that("multiple strings can be split",{
  result <- rope:::string_split_vector(c("this is a string", "this is also a string")," ")
  expect_that(result[[1]], equals(c("this","is","a", "string")))
  expect_that(result[[2]], equals(c("this","is","also","a", "string")))

})