inst/unitTests/test_synapseLogin.R

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

## Unit test synapseLogin
## 
## Author: Matthew D. Furia <matt.furia@sagebase.org>
###############################################################################

.setUp <-
  function()
{
  synapseClient:::.setCache('oldAuthMode', synapseClient:::authMode())
  synapseClient:::.setCache('oldSessionToken', synapseClient:::.getCache("sessionToken"))
  synapseClient:::.setCache('oldHmacKey', synapseClient:::.getCache("hmacSecretKey"))
  synapseClient:::sessionToken(NULL)
  hmacSecretKey(NULL)
}


.tearDown <-
  function()
{
  synapseClient:::sessionToken(synapseClient:::.getCache('oldSessionToken'))
  hmacSecretKey(synapseClient:::.getCache('oldHmacKey'))
  synapseClient:::authMode(synapseClient:::.getCache('oldAuthMode'))
}

unitTestNotLoggedInToken <- function(){
  synapseClient:::authMode('auth')
  gotException <- FALSE
  tryCatch(getEntity(Project(list(id='foo'))), 
    error = function(e) {
      gotException <- TRUE
      checkTrue(grepl("please log into Synapse", e))
    }	)
}

unitTestNotLoggedInHmac <- function(){
  synapseClient:::authMode('hmac')
  gotException <- FALSE
  tryCatch(getEntity(Project(list(id='bar'))),
    error = function(e) {
      gotException <- TRUE
      checkTrue(grepl("Please Authenticate", e))
    }      )
}