tests/testthat/test99_examples.R

In tdanker/ephys2: Read, analyze and plot HEKA Patchmaster files

context("examples")
# we want to ensure that the examples
#   -  do not rely on the existence of certain files in the working dir 
#   -  do not contaminate the current working dir with example files
#dir.create("testfolder_examples",showWarnings = F)
#setwd("testfolder_examples")

# test_example_in_empty_folder <- function(ex){
#   test_example(ex)
# }
# 
# man <- dir("../../../man", "\\.Rd$", full.names = TRUE)
# 
# lapply(man, test_example_in_empty_folder)

test_examples("../..")

#test_that("no files where created in the working dir by running the examples", {
#  expect_equal(length(dir()),0)
#})

#setwd("..")