tests/testthat/test-validate_tab_name.R

context("validate_tab_name")

test_that("validate_tab_name stops on name containing dot character", {
  checked_value <- "wrong.name"
  expect_error(semantic.dashboard:::validate_tab_name(checked_value))
})

test_that("validate_tab_name should not stop on correct name", {
  checked_value <- "good_name"
  expect_silent(semantic.dashboard:::validate_tab_name(checked_value))
})

Try the semantic.dashboard package in your browser

Any scripts or data that you put into this service are public.

semantic.dashboard documentation built on Jan. 16, 2021, 5:28 p.m.