tests/testthat/test-helpers.R

context("helpers")

trail <- "string with trail////"

test_that("helpers functions return expectd values", {
  expect_equal(dk(), "api/dataset/node")
  expect_equal(dkfiles(), "sites//default//files")
  expect_equal(notrail(trail), "string with trail")
})
tonyfujs/dkanr documentation built on May 28, 2019, 4:03 p.m.