tests/testthat/test_strings.R

In pachevalier/tricky: Tricky R functions

library("tricky")
context("String functions")

test_that(
  desc = "str_standardize works...",
  code = {
    expect_equal(
      object = str_standardize("code externe de l'action"),
      expected = "code_externe_de_l_action"
    )
    expect_equal(
      object = str_standardize(string = "é,è"),
      expected = "e_e"
    )
    expect_equal(
      object = str_standardize(string = "test \n test"),
      expected = "test_test"
      )
    }
  )