tests/testthat/test-awesome_rladies.R

In shannonpileggi/ralphGetsTested: What the Package Does (One Line, Title Case)

test_that("assess awesome rladies", {
  # writing a single message
  expected_1 <- write_rladies(1)
  expected_2 <- write_rladies(2)
  expect_type(expected_1, "character")
  expect_equal(expected_1, "There is 1 awesome RLady!")
  expect_equal(expected_2, "There are 2 awesome RLadies!")
  # writing multiple messages
  expect_multiple <- compose_rladies(1:2)
  expect_length(expect_multiple, 2)
  # catch errors
  expect_error(compose_rladies("a"))
  expect_error(compose_rladies("-1"))
  expect_error(compose_rladies("one"))

})