From f68256332458c6d960ca5e2fbe14c4744f4823cb Mon Sep 17 00:00:00 2001
From: Ernest Guevarra <ernest@guevarra.io>
Date: Tue, 23 Apr 2024 22:48:43 +0100
Subject: [PATCH] add tests for icd_10_get functions

---
 R/icd_10_get.R                   |  4 ++--
 man/icd_10_get.Rd                |  2 +-
 tests/testthat/test-icd_10_get.R | 30 ++++++++++++++++++++++++++++++
 3 files changed, 33 insertions(+), 3 deletions(-)

diff --git a/R/icd_10_get.R b/R/icd_10_get.R
index 49a3e69..5c9d021 100644
--- 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
index a855692..4c4bbaa 100644
--- a/man/icd_10_get.Rd
+++ b/man/icd_10_get.Rd
@@ -33,8 +33,8 @@ icd_10_get_release_by_category(
 )
 
 icd_10_get_info(
-  release = NULL,
   category,
+  release = NULL,
   api_version = c("v2", "v1"),
   language = "en",
   verbose = TRUE,
diff --git a/tests/testthat/test-icd_10_get.R b/tests/testthat/test-icd_10_get.R
index 1300118..81db651 100644
--- 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))
+  }
+)