inst/unitTests/test_endpoints.R

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

## Unit tests for setting/getting service endtpoints
## 
## Author: Matthew D. Furia <matt.furia@sagebase.org>
###############################################################################

.setUp <-
  function()
{
  synapseClient:::.setCache('oldSessionToken', synapseClient:::.getCache("sessionToken"))
  synapseClient:::.setCache('oldHmacKey', synapseClient:::.getCache("hmacSecretKey"))
  synapseClient:::.setCache('oldRepoEndpoint', synapseRepoServiceEndpoint())
  synapseClient:::.setCache('oldAuthEndpoint', synapseAuthServiceEndpoint())
  synapseClient:::.setCache('oldFileEndpoint', synapseFileServiceEndpoint())
  synapseClient:::.setCache('oldPortalEndpoint', synapsePortalEndpoint())
  synapseClient:::.setCache('oldVersionsEndpoint', synapseClient:::.getVersionsEndpoint())
  synapseClient:::sessionToken(NULL)
  hmacSecretKey(NULL)
  synapseFileServiceEndpoint("http://shoobar.com")
  synapseAuthServiceEndpoint("http://foobar.com")
  synapseRepoServiceEndpoint("http://boobar.com")
  synapsePortalEndpoint("http://barboo.com")
}


.tearDown <-
  function()
{
  synapseFileServiceEndpoint(synapseClient:::.getCache('oldFileEndpoint')$endpoint)
  synapseAuthServiceEndpoint(synapseClient:::.getCache('oldAuthEndpoint')$endpoint)
  synapseRepoServiceEndpoint(synapseClient:::.getCache('oldRepoEndpoint')$endpoint)
  synapseClient:::synapseVersionsServiceEndpoint(synapseClient:::.getCache('oldVersionsEndpoint'))
  synapsePortalEndpoint(synapseClient:::.getCache('oldPortalEndpoint')$endpoint)
  synapseClient:::sessionToken(synapseClient:::.getCache('oldSessionToken'))
  hmacSecretKey(synapseClient:::.getCache('oldHmacKey'))
}

unitTestSetAuth <-
  function()
{
  synapseClient:::sessionToken("1234")
  hmacSecretKey("5678")
  checkEquals(synapseClient:::sessionToken(), "1234")
  checkEquals(hmacSecretKey(), "5678")
  checkEquals(synapseAuthServiceEndpoint()$endpoint, "http://foobar.com")
  synapseAuthServiceEndpoint('http://authme.com')
  checkEquals(synapseAuthServiceEndpoint()$endpoint, 'http://authme.com')
}

unitTestSetFile <-
  function()
{
  checkEquals(synapseFileServiceEndpoint()$endpoint, "http://shoobar.com")
  synapseFileServiceEndpoint('http://fileme.com')
  checkEquals(synapseFileServiceEndpoint()$endpoint, 'http://fileme.com')
}

unitTestSetRepo <-
  function()
{
  synapseClient:::sessionToken("1234")
  hmacSecretKey("5678")
  checkEquals(synapseClient:::sessionToken(), "1234")
  checkEquals(hmacSecretKey(), "5678")
  
  checkEquals(synapseRepoServiceEndpoint()$endpoint, "http://boobar.com")
  synapseRepoServiceEndpoint('http://repome.com')
  checkEquals(synapseRepoServiceEndpoint()$endpoint, 'http://repome.com')
}

unitTestSetPortal <-
  function()
{
  synapseClient:::sessionToken("1234")
  hmacSecretKey("5678")
  checkEquals(synapseClient:::sessionToken(), "1234")
  checkEquals(hmacSecretKey(), "5678")
  
  checkEquals(synapsePortalEndpoint()$endpoint, "http://barboo.com")
  synapsePortalEndpoint('http://portalme.com')
  checkEquals(synapsePortalEndpoint()$endpoint, 'http://portalme.com')
  
  ## don't log out of all we're doing is re-setting the portal endpoint
  checkEquals(synapseClient:::sessionToken(), "1234")
  checkEquals(hmacSecretKey(), "5678")
}


unitTestResetEndpoints <-
  function()
{
  synapseClient:::sessionToken("1234")
  hmacSecretKey("5678")
  checkEquals(synapseClient:::sessionToken(), "1234")
  checkEquals(hmacSecretKey(), "5678")
  
  checkEquals(synapsePortalEndpoint()$endpoint, "http://barboo.com")
  checkEquals(synapseFileServiceEndpoint()$endpoint, "http://shoobar.com")
  checkEquals(synapseAuthServiceEndpoint()$endpoint, "http://foobar.com")
  checkEquals(synapseRepoServiceEndpoint()$endpoint, "http://boobar.com")	
  
  synapseResetEndpoints()	
  checkEquals(synapseRepoServiceEndpoint()$endpoint, 'https://repo-prod.prod.sagebase.org/repo/v1')
  checkEquals(synapseAuthServiceEndpoint()$endpoint, 'https://auth-prod.prod.sagebase.org/auth/v1')
  checkEquals(synapseFileServiceEndpoint()$endpoint, 'https://file-prod.prod.sagebase.org/file/v1')
  checkEquals(synapsePortalEndpoint()$endpoint, 'http://synapse.sagebase.org')
}

unitTestSetVersionsEndpoint <- function()
{
  synapseClient:::synapseVersionsServiceEndpoint("http://boobar.com")
  checkEquals("http://boobar.com", synapseClient:::.getVersionsEndpoint())
}

unitTestSynEndpoints<-function()
{
  checkEquals(synGetEndpoints()$repo, "http://boobar.com")	
  checkEquals(synGetEndpoints()$auth, "http://foobar.com")
  checkEquals(synGetEndpoints()$file, "http://shoobar.com")
  checkEquals(synGetEndpoints()$portal, "http://barboo.com")
  synSetEndpoints("http://1.com/repo/v1", "http://2.com/auth/v1", "http://3.com/file/v1", "http://4.com/portal")
  checkEquals(synGetEndpoints()$repo, "http://1.com/repo/v1")	
  checkEquals(synGetEndpoints()$auth, "http://2.com/auth/v1")
  checkEquals(synGetEndpoints()$file, "http://3.com/file/v1")
  checkEquals(synGetEndpoints()$portal, "http://4.com/portal")
  synSetEndpoints()
  checkEquals(synapseRepoServiceEndpoint()$endpoint, 'https://repo-prod.prod.sagebase.org/repo/v1')
  checkEquals(synapseAuthServiceEndpoint()$endpoint, 'https://auth-prod.prod.sagebase.org/auth/v1')
  checkEquals(synapseFileServiceEndpoint()$endpoint, 'https://file-prod.prod.sagebase.org/file/v1')
  checkEquals(synapsePortalEndpoint()$endpoint, 'http://synapse.sagebase.org')
}