test_that("output should be a list", {

  user <- Sys.getenv("user")
  pwd <- Sys.getenv("pwd")
  email <- Sys.getenv("email")

  # Download raw and then clean it
  raw <- download_gbif(scientificName = "Eurycea bislineata",
                       user = user,
                       pwd = pwd,
                       email = email)

  expect_equal(class(raw), 'list')
})