tests/testthat/test-r-utils.R

In MarijnJABoer/befitteR: A bundle of health, fitness, food and body related equations, formula's and more, so you can become fit

context("test-r-utils.R")

test_that("check_sex works as it should", {
  expect_error(check_sex("male"), NA)
  expect_error(check_sex("female"), NA)
  expect_equal(check_sex("male"), "male")
  expect_equal(check_sex("female"), "female")
  expect_error(check_sex("random"))
})