Running 'test_file_subs_ext.R' [0s]
  Running 'test_mdtangle.R' [0s]
  Running 'test_mdweave.R' [3s]
  Running 'test_run_and_capture.R' [152s]
Running the tests in 'tests/test_run_and_capture.R' failed.
Complete output:
  > library(simplermarkdown)
  > 
  > # -----------------------------------------------------------------------------
  > src <- "a <- 1"
  > 
  > r <- run_and_capture(src)
  > stopifnot(isTRUE(all.equal(attr(r, "code"), src)))
  > stopifnot(length(r) == 1)
  > stopifnot(isTRUE(all.equal(r[[1]]$input, src)))
  > stopifnot(length(r[[1]]$output) == 0)
  > 
  > r <- run_and_capture(src, echo = FALSE)
  > stopifnot(isTRUE(all.equal(attr(r, "code"), src)))
  > stopifnot(length(r) == 0)
  > 
  > # -----------------------------------------------------------------------------
  > src <- "a <- 1\na"
  > 
  > r <- run_and_capture(src)
  > stopifnot(isTRUE(all.equal(attr(r, "code"), src)))
  > stopifnot(length(r) == 2)
  > stopifnot(isTRUE(all.equal(r[[1]]$input, "a <- 1")))
  > stopifnot(length(r[[1]]$output) == 0)
  > stopifnot(isTRUE(all.equal(r[[2]]$input, "a")))
  > stopifnot(isTRUE(all.equal(r[[2]]$output, "[1] 1")))
  > 
  > r <- run_and_capture(src, echo = FALSE)
  > stopifnot(isTRUE(all.equal(attr(r, "code"), src)))
  > stopifnot(length(r) == 1)
  > stopifnot(isTRUE(all.equal(r[[1]]$input, character(0))))
  > stopifnot(isTRUE(all.equal(r[[1]]$output, "[1] 1")))
  > 
  > r <- run_and_capture(src, results = FALSE)
  > stopifnot(isTRUE(all.equal(attr(r, "code"), src)))
  > stopifnot(length(r) == 2)
  > stopifnot(isTRUE(all.equal(r[[1]]$input, "a <- 1")))
  > stopifnot(length(r[[1]]$output) == 0)
  > stopifnot(isTRUE(all.equal(r[[2]]$input, "a")))
  > stopifnot(length(r[[2]]$output) == 0)
  > 
  > r <- run_and_capture(src, echo = FALSE, results = FALSE)
  > stopifnot(isTRUE(all.equal(attr(r, "code"), src)))
  > stopifnot(length(r) == 0)
  > stopifnot(is.list(r))
  > 
  > # -----------------------------------------------------------------------------
  > src <- ""
  > r <- run_and_capture(src)
  > stopifnot(isTRUE(all.equal(attr(r, "code"), src)))
  > stopifnot(is.list(r) && length(r) == 0)
  > 
  > # -----------------------------------------------------------------------------
  > src <- character(0)
  > r <- run_and_capture(src)
  > stopifnot(isTRUE(all.equal(attr(r, "code"), src)))
  > stopifnot(is.list(r) && length(r) == 0)
  > 
  > 
  > proc.time()
     user  system elapsed 
     0.14    0.12    0.26