tests/testthat/test-remove_everything_but_digits.R

test_that("Test: remove_everything_but_digits", {

  expect_equal(remove_everything_but_digits(x = "hello 123"), "123")

  expect_equal(remove_everything_but_digits(x = "hello"), "")

  expect_equal(remove_everything_but_digits(x = "-"), "")

})
kristian-bak/kb.utils documentation built on Aug. 1, 2022, 7:09 a.m.