test_that("process_gbif only saves iNat data", {

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

  process_gbif(scientificName = "Eurycea bislineata",
               sp.code = "EBIS",
               keep = "iNaturalist",
               user = user,
               pwd = pwd,
               email = email)

  expect_equal(file.exists('./EBIS_iNat_PO.csv'), TRUE)

})

test_that("process_gbif only saves Museum data", {

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

  process_gbif(scientificName = "Eurycea bislineata",
               sp.code = "EBIS",
               keep = "museum",
               user = user,
               pwd = pwd,
               email = email)

  expect_equal(file.exists('./EBIS_museum_PO.csv'), TRUE)

})