1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 16:42:10 +02:00

added Becker 2019

This commit is contained in:
2019-03-26 14:24:03 +01:00
parent c6a12266e7
commit 29f444543d
45 changed files with 674 additions and 476 deletions

View File

@ -28,7 +28,7 @@ test_that("get_locale works", {
expect_identical(mo_fullname("CoNS", "en"), "Coagulase-negative Staphylococcus (CoNS)")
expect_identical(mo_fullname("CoNS", "de"), "Koagulase-negative Staphylococcus (KNS)")
expect_identical(mo_fullname("CoNS", "nl"), "Coagulase-negatieve Staphylococcus (CNS)")
expect_identical(mo_fullname("CoNS", "es"), "Staphylococcus coagulasa negativo (CoNS)")
expect_identical(mo_fullname("CoNS", "es"), "Staphylococcus coagulasa negativo (SCN)")
expect_identical(mo_fullname("CoNS", "it"), "Staphylococcus negativo coagulasi (CoNS)")
# expect_identical(mo_fullname("CoNS", "fr"), "Staphylococcus \u00e0 coagulase n\u00e9gative (CoNS)")
expect_identical(mo_fullname("CoNS", "pt"), "Staphylococcus coagulase negativo (CoNS)")

View File

@ -22,13 +22,23 @@
context("mo_history.R")
test_that("mo_history works", {
clean_mo_history()
clean_mo_history(force = TRUE)
expect_equal(read_mo_history(force = TRUE),
NULL)
set_mo_history("testsubject", "B_ESCHR_COL", force = TRUE)
expect_equal(get_mo_history("testsubject", force = TRUE),
expect_equal(as.character(suppressWarnings(as.mo("testsubject"))), "UNKNOWN")
set_mo_history("testsubject", "B_ESCHR_COL",
uncertainty_level = translate_allow_uncertain(TRUE),
force = TRUE)
expect_equal(get_mo_history("testsubject",
uncertainty_level = translate_allow_uncertain(TRUE),
force = TRUE),
"B_ESCHR_COL")
expect_equal(as.character(suppressWarnings(as.mo("testsubject"))), "B_ESCHR_COL")
expect_equal(colnames(read_mo_history(force = TRUE)),
c("x", "mo", "package_version"))
c("x", "mo", "uncertainty_level", "package_version"))
})