tests/testthat/test-files.R

context("files are present and sensible")


test_that("files are present", {
  expect_that(bgmfiles(), is_a("character"))
  expect_that(length(bgmfiles()), testthat::is_more_than(1L))
  expect_that(all(file.exists(bgmfiles())), testthat::is_true())
})

Try the bgmfiles package in your browser

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

bgmfiles documentation built on May 1, 2019, 10:28 p.m.