Fix Latex PDF error

2025-07-08 21:22:01 +02:00 · 2018-04-30 16:24:11 +02:00
parent 970e3ed7f1
commit 8fe70d5652
4 changed files with 27 additions and 30 deletions
--- a/tests/testthat/test-atc.R
+++ b/tests/testthat/test-atc.R
@ -29,3 +29,16 @@ test_that("guess_bactid works", {
                              "VISA")),
               rep("STAAUR", 8))
 })
+
+test_that("guess_atc works", {
+  expect_equal(guess_atc(c("J01FA01",
+                           "Erythromycin",
+                           "eryt",
+                           "ERYT",
+                           "ERY",
+                           "Erythrocin",
+                           "Eryzole",
+                           "Pediamycin")),
+               rep("J01FA01", 8))
+
+})