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)

test_that("clean_GBIF creates a dataframe", {

  clean <- clean_gbif(raw = raw$dat,
                      startYear = 1980)

  expect_equal(class(clean), c('tbl_df','tbl','data.frame'))
})