complexes

inst/tinytest/test-mo.R

@@ -80,6 +80,8 @@ expect_equal(as.character(as.mo("streptococcus milleri")), "B_STRPT_MILL")
 
 expect_equal(as.character(as.mo(c("Gram negative", "Gram positive"))), c("B_GRAMN", "B_GRAMP"))
 
+expect_warning(as.mo("Acinetobacter calcoaceticus/baumannii complex"))
+
 # prevalent MO
 expect_identical(
   suppressWarnings(as.character(

inst/tinytest/test-rsi.R

@@ -81,6 +81,12 @@ if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0")) {
   expect_equal(sum(is.rsi(example_isolates)), 40)
 
   expect_stdout(print(tibble(ab = as.rsi("S"))))
+  
+  expect_true(example_isolates %>% 
+                select(AMC, MEM) %>% 
+                mutate(MEM = as.rsi(ifelse(AMC == "S", "S", MEM))) %>% 
+                pull(MEM) %>% 
+                is.rsi())
 }
 if (AMR:::pkg_is_available("skimr", min_version = "2.0.0")) {
   expect_inherits(