tests/testthat/test_create_test_sleeplog_csv.R

In PeteJWatson/ggircal: Raw Accelerometer Data Analysis

library(GGIR)
context("create_test_sleeplog_csv")
options(encoding = "UTF-8")
test_that("create_test_sleeplog_csv produces a file", {
  create_test_sleeplog_csv()
  fn = "testsleeplogfile.csv"
  expect_that(file.exists(fn),is_true())
  if (file.exists(fn)) file.remove(fn)
})