REDCapCAST/tests/testthat/test-utils.R

test_that("strsplitx works", {
  expect_equal(2 * 2, 4)
  test <- c("12 months follow-up", "3 steps", "mRS 6 weeks",
            "Counting to 231 now")
  expect_length(strsplitx(test, "[0-9]", type = "around")[[1]], 3)

  expect_equal(strsplitx(test, "[0-9]", type = "classic")[[2]][1], "")
  expect_length(strsplitx(test, "[0-9]", type = "classic")[[4]], 4)

  expect_length(strsplitx(test, "[0-9]", type = "classic")[[4]], 4)
})

test_that("d2w works", {
  expect_length(d2w(c(2:8, 21)), 8)

  expect_equal(d2w(data.frame(2:7, 3:8, 1),
    lang = "da",
    neutrum = TRUE
  )[1, 3], "et")

  expect_equal(d2w(list(2:8, c(2, 6, 4, 23), 2), everything = T)[[2]][4], "two three")
})