inst/integrationTests/test_getMimeTypeForFile.R

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

integrationTestGetEntityByIdExistingFileCache <-
  function()
{
  checkEquals("image/jpeg", synapseClient:::getMimeTypeForFile("foo.jpg"))
  checkEquals("image/jpeg", synapseClient:::getMimeTypeForFile("foo.jpeg"))
  checkEquals("text/html", synapseClient:::getMimeTypeForFile("this.is.a.file.html"))
  checkEquals("application/octet-stream", synapseClient:::getMimeTypeForFile("FileWithoutExtension"))
  checkEquals("application/octet-stream", synapseClient:::getMimeTypeForFile("foo.unrecognizedExtenion"))
  checkEquals("text/x-r", synapseClient:::getMimeTypeForFile("python-copycat.R"))
  checkEquals("text/x-r", synapseClient:::getMimeTypeForFile("PYTHON-COPYCAT.r"))
}