tests/testthat/test-clean_strings.R

In Kidapt/keda: A Package to Support Exploratory Data Analysis

context("test-clean_strings")

text_in <- c("Hello", "_hello_", "Hel_lo", "dash-dash", "per.iod.")

text_out <- c("hello", "hello", "hel_lo", "dash_dash", "per_iod")

test_that("multiplication works", {
  expect_equal(clean_strings(text_in), text_out)
})