1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-17 09:03:14 +02:00

(v1.6.0.9028) new unit test flow

This commit is contained in:
2021-05-13 22:44:11 +02:00
parent 5b9fb8daf4
commit 9ed2f6490f
31 changed files with 108 additions and 99 deletions

View File

@ -77,7 +77,7 @@ test_that("EUCAST rules work", {
expect_equal(suppressWarnings(eucast_rules(a, "mo", info = FALSE)), b)
# piperacillin must be R in Enterobacteriaceae when tica is R
if (require("dplyr")) {
if (suppressWarnings(require("dplyr"))) {
expect_equal(suppressWarnings(
example_isolates %>%
filter(mo_family(mo) == "Enterobacteriaceae") %>%
@ -115,7 +115,7 @@ test_that("EUCAST rules work", {
"S")
# also test norf
if (require("dplyr")) {
if (suppressWarnings(require("dplyr"))) {
expect_output(suppressWarnings(eucast_rules(example_isolates %>% mutate(NOR = "S", NAL = "S"), info = TRUE)))
}