tests/testthat/test-output_gbif_has_distribution.R

In trias-project/trias: Process Data for the Project Tracking Invasive Alien Species (TrIAS)

context("output_gbif_has_distribution")

testthat::test_that("gbif_has_distribution with user parameters", {
  testthat::expect_true(gbif_has_distribution(140563025, country = "BE"))
  testthat::expect_false(gbif_has_distribution(113794849, country = "BE", status = "DOUBTFUL"))
  testthat::expect_true(gbif_has_distribution(
    taxon_key = 140563025,
    country = "BE",
    # uncomment after https://github.com/gbif/gbif-api/issues/94 is solved
    # status = "PRESENT",
    establishmentMeans = "introduced"
  ))
  testthat::expect_true(gbif_has_distribution(100022263,
    country = c("GL", "CA")
    # uncomment after https://github.com/gbif/gbif-api/issues/94 is solved
    # status = c(
    #   "PRESENT",
    #   "DOUBTFUL"
    # )
  ))
  testthat::expect_true(gbif_has_distribution(
    taxon_key = 100022263,
    establishmentMeans = c("introduced", "original"),
    country = "CA"
    # uncomment after https://github.com/gbif/gbif-api/issues/94 is solved
    # status = c("PRESENT", "ABSENT")
  ))
})

testthat::test_that("gbif_has_distribution without user parameters", {
  testthat::expect_true(gbif_has_distribution(2225776))
  testthat::expect_false(gbif_has_distribution(121483688))
})

testthat::test_that("gbif_has_distribution with multiple distributions", {
  testthat::expect_true(gbif_has_distribution(139334288, country = "CA"))
  # uncomment after https://github.com/gbif/gbif-api/issues/94 is solved
  # testthat::expect_true(gbif_has_distribution(139334288,
  #   country = "CA",
  #   status = "present"
  # ))
  # uncomment after https://github.com/gbif/gbif-api/issues/94 is solved
  # testthat::expect_true(gbif_has_distribution(139334288,
  #   country = "CA",
  #   status = "absent"
  # ))
  testthat::expect_true(gbif_has_distribution(139334288,
    country = "CA",
    # uncomment after https://github.com/gbif/gbif-api/issues/94 is solved
    # status = "present",
    establishmentMeans = "native"
  ))
  testthat::expect_false(gbif_has_distribution(139334288,
    country = "FR", # instead of "CA"
    # uncomment after https://github.com/gbif/gbif-api/issues/94 is solved
    # status = "present",
    establishmentMeans = "native"
  ))
})

testthat::test_that(
  "gbif_has_distribution is case insensitive", {
  testthat::expect_true(gbif_has_distribution(140563025,
                                    country = c("bE"),
                                    establishmentMeans = "inTrODUceD"
  ))
})