tests/testthat/test-travisCI.R

In pik-piam/lucode: Code Manipulation and Analysis Tools

library(testthat)
skip_if_not(identical(Sys.getenv("TRAVIS"), "true"))
context("Travis CI integration")

test_that("Validation Key is correct (for Travis CI)", {
  folder <- ifelse(file.exists("DESCRIPTION"),".","../../")
  expect_true(lucode:::validkey(folder)$valid)
})