Travisci

.travis.yml

@@ -0,0 +1,2 @@
+language: r
+cache: packages

DESCRIPTION

@@ -8,6 +8,8 @@ Description: This package contains functions that build off of the core
     building blocks in testwhat. Often, these will be multiple simple
     SCTs combined.
 Imports: testwhat
+Suggests: testthat
+Remotes: datacamp/testwhat
 License: MIT + file LICENSE
 LazyData: TRUE
 RoxygenNote: 5.0.1

R/examples.R

@@ -18,6 +18,7 @@ check_object2 <- function(state, names) {
 #' @param state state to start from
 #' @param name passed to check_function
 #' @param index passed to check_function
+#' @param args an array of argument names, passed to check_args, then check_equal.
 #' @importFrom testwhat check_function check_arg check_equal %>%
 #'
 #' @export

tests/testthat/helper-setup_state.R

@@ -1,15 +1,15 @@
 setup_state <- function(stu_code, sol_code, PEC = "", output = "") {
-  if (is.character(output)) output <- list(type = "output", payload = output)
+  if (is.character(output)) output <- list(list(type = "output", payload = output))
 
   tw <<- testwhat:::tw
 
   sol_env <- new.env()
   stu_env <- new.env()
 
-  evaluate::evaluate(PEC,      envir=sol_env)
-  evaluate::evaluate(sol_code, envir=sol_env)
-  evaluate::evaluate(PEC,      envir=stu_env)
-  evaluate::evaluate(stu_code, envir=stu_env)
+  eval(parse(text = PEC),      envir=sol_env)
+  eval(parse(text = sol_code), envir=sol_env)
+  eval(parse(text = PEC),      envir=stu_env)
+  eval(parse(text = stu_code), envir=stu_env)
 
   tw$clear()
 

tests/testthat/test_examples.R

@@ -1,5 +1,10 @@
 context("Examples")
 
+test_that("state is setup correctly", {
+  state <- setup_state("x <- 1", "x <- 1", output = "a b c")
+  state %>% testwhat::check_output("a b c")
+})
+
 test_that("check_object2 passes", {
   state <- setup_state("x <- 1; y <- 2", "x <- 1; y <- 2")
   state %>% check_object2(c('x', 'y'))