(v1.4.0.9049) unit tests

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2020-12-27 15:07:01 +01:00
1 parent ed198916bf
commit 175e33abba
13 files changed
+18 -17

No files matched your search

+3 -3
View File
@@ -122,19 +122,19 @@ test_that("EUCAST rules work", {
expect_identical(
eucast_rules(data.frame(mo = c("Escherichia coli", "Enterobacter cloacae"),
cefotax = as.rsi(c("S", "S"))),
ampc_derepressed_cephalosporins = "R",
ampc_cephalosporin_resistance = "R",
info = FALSE)$cefotax,
as.rsi(c("S", "R")))
expect_identical(
eucast_rules(data.frame(mo = c("Escherichia coli", "Enterobacter cloacae"),
cefotax = as.rsi(c("S", "S"))),
ampc_derepressed_cephalosporins = NA,
ampc_cephalosporin_resistance = NA,
info = FALSE)$cefotax,
as.rsi(c("S", NA)))
expect_identical(
eucast_rules(data.frame(mo = c("Escherichia coli", "Enterobacter cloacae"),
cefotax = as.rsi(c("S", "S"))),
ampc_derepressed_cephalosporins = NULL,
ampc_cephalosporin_resistance = NULL,
info = FALSE)$cefotax,
as.rsi(c("S", "S")))