inst/tests/test_restoreOptions.R

In Sage-Bionetworks/sessionTools: Tools for saving, restoring and teleporting R sessions.

## Copyright (C) 2012  Sage Bionetworks <www.sagebase.org>
##
## filename: test_restoreOptions.R
## description: test restoreOptions method.
## author: Matthew D. Furia <matt.furia@sagebase.org>
##
## This file is part of the sessionTools R package.
##
## sessionTools is free software: provided the Funding Acknolegement
## is maintained, you can redistribute it and/or modify it under the terms of 
## the GNU LGPL-3, either version 3 of the License, or (at your option) any 
## later version. For details visit <http://www.gnu.org/licenses/>.
##
## Funding Acknowledgement: 
## The development of this software was supported by NCI Integrative Cancer 
## Biology Program grant CA149237 and Washington State Life Science Discovery 
## Fund Program Grant 3104672 to Sage Bionetworks.
###############################################################################

.setUp <-
    function()
{
  oldOpts <- options()
  save(oldOpts, file=file.path(tempdir(), "oldOpts.Rbin"))
}

.tearDown <-
    function()
{
  load(file=file.path(tempdir(), "oldOpts.Rbin"))
  options(oldOpts)
  rmOpts <- setdiff(names(options()), names(oldOpts))
  opt <- list(aName=NULL)
  for(name in rmOpts){
    names(opt) <- name
    options(opt)
  }
  rm(oldOpts)
  file.remove(file.path(tempdir(), "oldOpts.Rbin"))
}

unitTestRestoreOptions <-
    function()
{
  load(file.path(tempdir(), "oldOpts.Rbin"))
  sessionInfo <- list(opts = list(repos=c(CRAN="aFakeCranRepo", SageBio="aFakeLranRepo"), 
          otherOpt="foobar", verbose=!getOption("verbose")))
  
  ## only the repos option should be set
  restoreOptions(sessionInfo)
  
  checkTrue(all(getOption("repos") == c(CRAN="aFakeCranRepo", SageBio="aFakeLranRepo")))
  checkEquals(length(options()), length(oldOpts))
  checkTrue(all(names(oldOpts) %in% names(options())))
}

unitTestRestoreOptionsMoreOpts <-
    function()
{
  load(file.path(tempdir(), "oldOpts.Rbin"))
  options(otherOpt = "aValue")
  sessionInfo <- list(opts = list(repos=c(CRAN="aFakeCranRepo", SageBio="aFakeLranRepo"), 
          otherOpt="foobar", verbose=!getOption("verbose")))
  
  ## only the repos option should be set
  restoreOptions(sessionInfo)
  
  checkTrue(all(getOption("repos") == c(CRAN="aFakeCranRepo", SageBio="aFakeLranRepo")))
  checkEquals(length(options()), length(oldOpts) + 1)
  checkTrue(all(names(oldOpts) %in% names(options())))
  
  ## make sure otherOpt has it's original value
  checkEquals(getOption("otherOpt"), "aValue")
}