add tests for icd_10_get functions

OxfordIHTM · Apr 23, 2024 · f682563 · f682563
1 parent 2dc31d9
commit f682563
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 3 deletions.
diff --git a/R/icd_10_get.R b/R/icd_10_get.R
@@ -151,8 +151,8 @@ icd_10_get_release_by_category <- function(category,
 #' @export
 #'
 
-icd_10_get_info <- function(release = NULL,
-                            category,
+icd_10_get_info <- function(category,
+                            release = NULL,
                             api_version = c("v2", "v1"),
                             language = "en",
                             verbose = TRUE,

diff --git a/man/icd_10_get.Rd b/man/icd_10_get.Rd
diff --git a/tests/testthat/test-icd_10_get.R b/tests/testthat/test-icd_10_get.R
@@ -23,3 +23,33 @@ testthat::test_that(
     expect_warning(icd_10_get_chapters(language = "fr"))
   }
 )
+
+
+release_category <- icd_10_get_release_by_category("A00")
+
+testthat::test_that(
+  "release_category is of the right type", {
+    expect_type(release_category, "list")
+  }
+)
+
+
+release_info <- icd_10_get_info(category = "A00")
+
+testthat::test_that(
+  "release_info is of the right type", {
+    expect_type(release_info, "list")
+  }
+)
+
+testthat::test_that(
+  "warning is raised for unavailable language", {
+    expect_warning(icd_10_get_info(category = "A00", language = "zz"))
+  }
+)
+
+testthat::test_that(
+  "error is raised for unavailable release", {
+    expect_error(icd_10_get_info(category = "A00", release = 2020))
+  }
+)