tests/testthat/test-external.R

In omkarakatta/firstpackage: Documents the development of an R package

test_that("find_whitespace", {
  expect_equal(find_whitespace("absd"), FALSE)
  expect_equal(find_whitespace("absd "), TRUE)
  expect_equal(find_whitespace("a bsd"), TRUE)
})

test_that("find_whitespace_2", {
    expect_equal(find_whitespace_2("absd"), FALSE)
    expect_equal(find_whitespace_2("absd "), TRUE)
    expect_equal(find_whitespace_2("a bsd"), TRUE)
})