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 Aug. 23, 2024, 11:07 a.m.