tests/testthat/test-valid.R

library(testthat)

context("Valid")

test_that("Valid name types", {
  is <- valid__name_types()

  should <- c("internal", "external", "external_clean")

  expect_identical(is, should)
})
rappster/namap documentation built on April 1, 2020, 4:57 p.m.