inst/unitTests/test_synapseDataLocationPreferences.R

In Sage-Bionetworks/rSynapseClientRewrite: Synapse R Client from Sage Bionetworks

## Test data location preferences
## 
## Author: Nicole Deflaxu <nicole.deflaux@sagebase.org>
###############################################################################

.setUp <- 
  function()
{
  synapseClient:::.setCache("untiTestSavedLocationPrefs", synapseClient:::synapseDataLocationPreferences())
}

.tearDown <- 
  function()
{
  synapseClient:::synapseDataLocationPreferences(synapseClient:::.getCache("untiTestSavedLocationPrefs"))
  synapseClient:::.deleteCache("untiTestSavedLocationPrefs")
}

unitTestHappyCase <- 
  function()
{ 
  synapseClient:::synapseDataLocationPreferences(c('awss3'))
}

unitTestInvalidLocationPref <- 
  function() 
{
  checkException(synapseClient:::synapseDataLocationPreferences(c('invalid', 'awss3')))
}