context("datasets")

test_that("query all datasets returns the correct class", {
  skip_on_cran() # because fixture in .Rbuildignore

  vcr::use_cassette("datasets", {
    tt <- datasets()
  }, preserve_exact_body_bytes = TRUE)
  
  expect_is(tt, "list")
  expect_is(tt$data, "data.frame")
  expect_is(tt$data$publishingOrganizationKey, "character")
})

test_that("single dataset query returns the correct", {
  vcr::use_cassette("datasets_single", {
    tt <- datasets(uuid="a6998220-7e3a-485d-9cd6-73076bd85657")
  })

  # class
  expect_is(tt, "list")
  expect_null(tt$meta)
  expect_is(tt$data$installationKey, 'character')

  # value
  expect_equal(tt$data$type, "OCCURRENCE")
  expect_equal(tt$data$rights, "not-for-profit use only")
  expect_equal(tt$data$identifiers$key, 13537)
})

test_that("contact returns the correct class", {
  vcr::use_cassette("datasets_contact", {
    tt <- datasets(data='contact', uuid="a6998220-7e3a-485d-9cd6-73076bd85657")
  })

  # class
  expect_is(tt, "list")
  expect_null(tt$meta)
  expect_is(tt$data$lastName, "character")

  # value
  expect_equal(tt$data$lastName[1], "Fisher")
})

test_that("metadata returns the correct class", {
  vcr::use_cassette("datasets_metadata", {
    tt <- datasets(data='metadata', uuid="a6998220-7e3a-485d-9cd6-73076bd85657")
  })

  # correct classes
  expect_is(tt, "list")
  expect_null(tt$meta)
  expect_is(tt$data$key, "integer")

  # correct values
  expect_equal(tt$data$type, "EML")
})

test_that("search for deleted and duplicate datasets returns the correct", {
  skip_on_cran() # because fixture in .Rbuildignore
  vcr::use_cassette("datasets_deleted_duplicate", {
    tt <- datasets(data=c('deleted', 'duplicate'))
  }, preserve_exact_body_bytes = TRUE)

  # class
  expect_is(tt, "list")

  # dimensions
  expect_equal(length(tt), 2)
  expect_equal(length(tt[[1]]), 2)
})

test_that("query all checklist datasets", {
  skip_on_cran() # because fixture in .Rbuildignore
  
  vcr::use_cassette("datasets_checklist", {
    cc <- datasets(type="checklist")
  }, preserve_exact_body_bytes = TRUE)
  
  expect_is(cc, "list")
  expect_is(cc$data, "data.frame")
  expect_true(all(cc$data$type == "CHECKLIST"))
})

test_that("test failure", {
  expect_error(datasets(data="organization",uuid=NULL),
               "You must specify a uuid if data does not equal all")
})