P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 08:52:15 +02:00
Code Releases Activity

(v1.4.0.9049) unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-12-27 15:07:01 +01:00
parent ed198916bf
commit 175e33abba
13 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tests/testthat/test-eucast_rules.R
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")))