tests/testthat/test-collect_environment_recursively.R

context("Check collect_environment_recursively")


hi <- "bcuiwcuow"

test_that("Check whether collect_environment_recursively works", {
  collect <- as.list(qsub:::collect_environment_recursively(environment(), "hi"))
  expect_equal(collect$hi, hi)

})
rcannood/qsub documentation built on Sept. 26, 2021, 8:55 a.m.