Test api abbreviations

palaeoverse · Dec 19, 2023 · 13834e4 · 13834e4
1 parent 7a359e9
commit 13834e4
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-resolve_phylopic.R b/tests/testthat/test-resolve_phylopic.R
@@ -4,6 +4,10 @@ test_that("resolve_phylopic works with GBIF", {
   expect_equal(length(res), 1)
   expect_true(is.character(names(res)))
   expect_true(all(sapply(res, is.character)))
+  res2 <- resolve_phylopic(name = "Acropora cervicornis", api = "gbif")
+  expect_equal(res, res2)
+  res3 <- resolve_phylopic(name = "Acropora cervicornis", api = "g")
+  expect_equal(res, res3)
 
   suppressWarnings(
     res <- resolve_phylopic(name = "Acropora cervicornis", api = "gbif.org",