tests/testthat/test-snaputils.R

context("snaputils")

test_that("resource paths are returned", {
  x <- snap_res()
  expect_is(x, "character")
  expect_identical(basename(x), "images")
})
leonawicz/snaputils documentation built on May 20, 2019, 10:21 p.m.