From 13834e406c29f8390bbf5a1dbaac6f118c5d85f4 Mon Sep 17 00:00:00 2001 From: William Gearty Date: Tue, 19 Dec 2023 17:13:25 -0500 Subject: [PATCH] Test api abbreviations --- tests/testthat/test-resolve_phylopic.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/testthat/test-resolve_phylopic.R b/tests/testthat/test-resolve_phylopic.R index 8584ebb5..197d98ad 100644 --- 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",