diff --git a/R/defunct.R b/R/defunct.R index 172b3f6..7330fab 100644 --- a/R/defunct.R +++ b/R/defunct.R @@ -1,5 +1,3 @@ -# nocov start - #' Get common names for a given taxonomic name #' #' @description `r lifecycle::badge('deprecated')` @@ -286,4 +284,3 @@ rl_synonyms_ <- function(name = NULL, key = NULL, ...) { lifecycle::deprecate_stop("1.0.0", "rl_synonyms_()", "rl_species_latest()") } -# nocov end diff --git a/tests/testthat/test-defunct.R b/tests/testthat/test-defunct.R new file mode 100644 index 0000000..25acf5c --- /dev/null +++ b/tests/testthat/test-defunct.R @@ -0,0 +1,26 @@ +test_that("defunct functions works", { + lifecycle::expect_defunct(rl_common_names()) + lifecycle::expect_defunct(rl_common_names_()) + lifecycle::expect_defunct(rl_history()) + lifecycle::expect_defunct(rl_history_()) + lifecycle::expect_defunct(rl_measures()) + lifecycle::expect_defunct(rl_measures_()) + lifecycle::expect_defunct(rl_narrative()) + lifecycle::expect_defunct(rl_narrative_()) + lifecycle::expect_defunct(rl_occ_country()) + lifecycle::expect_defunct(rl_occ_country_()) + lifecycle::expect_defunct(rl_regions()) + lifecycle::expect_defunct(rl_regions_()) + lifecycle::expect_defunct(rl_search()) + lifecycle::expect_defunct(rl_search_()) + lifecycle::expect_defunct(rl_sp()) + lifecycle::expect_defunct(rl_sp_()) + lifecycle::expect_defunct(rl_sp_category()) + lifecycle::expect_defunct(rl_sp_category_()) + lifecycle::expect_defunct(rl_sp_citation()) + lifecycle::expect_defunct(rl_sp_citation_()) + lifecycle::expect_defunct(rl_sp_country()) + lifecycle::expect_defunct(rl_sp_country_()) + lifecycle::expect_defunct(rl_synonyms()) + lifecycle::expect_defunct(rl_synonyms_()) +})