add test for icd_map function

OxfordIHTM · Apr 23, 2024 · e745a7a · e745a7a
1 parent f682563
commit e745a7a
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/tests/testthat/test-icd_map.R b/tests/testthat/test-icd_map.R
@@ -0,0 +1,13 @@
+# Tests for icd_map function ---------------------------------------------------
+
+testthat::test_that(
+  "output class/type and structure is as expected", {
+    expect_s3_class(icd_map(code = "A00"), "tbl")
+    expect_length(nrow(icd_map(code = "A00")), 1)
+    expect_named(
+      icd_map(code = "A00"),
+      expected = names(ten_map_to_one_eleven)
+    )
+  }
+)
+