tests/testthat/test_outputSideeffect.R

context("test .outputSideeffect")


test_that("no output as a side effect", {
  conn <- textConnection("stdoutContent", open = "w")
  sink(conn)
  file <- Folder(parentId = "syn123456")
  sink()
  close(conn)
  expect_equal(length(stdoutContent), 0)
})
Sage-Bionetworks/synapser documentation built on Feb. 7, 2024, 12:26 p.m.