tests/testthat/test-get-template.R

context("Retreiving templates")

test_that("get_template retreives templates correctly", {

  template <- get_template("categorical")

  expect_true(fs::file_exists(template))

  expect_error(get_template("abcd"), "No template was found")
})
dandermotj/datadoc documentation built on May 28, 2019, 8:59 p.m.