tests/testthat/test_rm_envir.R

In shug0131/cctu: In-house Functions for Report Writing at Cambridge Clinical Trials Unit

rm(list=ls())

library(cctu)

context("Test rm_envir")

test_that("Basic",
          {
 newenvir <- new.env()
 attach(newenvir)
 expect_true( "newenvir" %in% search())
 rm_envir()
 expect_false( "newenvir" %in% search())
          }
)

test_that("warning",
          {
            expect_warning(rm_envir(ignore=c(".GlobalEnv","package:(?!stats)","tools:","Autoloads"), perl=TRUE))
            expect_false( "package:stats" %in% search())
            library(stats)
            expect_true( "package:stats" %in% search())
          }
)