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

unit test

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-07-10 18:30:26 +02:00
parent 1b499bf012
commit dab20c09f6
5 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
inst/tinytest/test-mo_property.R
View File

@ -131,7 +131,7 @@ for (l in AMR:::LANGUAGES_SUPPORTED[-1]) {
expect_error(mo_gramstain("Escherichia coli", language = "UNKNOWN"))
fullnames <- microorganisms$fullname[which(microorganisms$fullname %unlike% "unknown|coagulase|Fungi|[(]class[)]|[{]")]
to_dutch <- suppressWarnings(mo_name(fullnames, language = "nl", keep_synonyms = TRUE))
back_to_english <- suppressWarnings(mo_name(dutch, language = NULL, keep_synonyms = TRUE))
back_to_english <- suppressWarnings(mo_name(to_dutch, language = NULL, keep_synonyms = TRUE))
diffs <- paste0('"', fullnames[fullnames != back_to_english], '"', collapse = ", ")
expect_identical(fullnames, back_to_english, info = diffs) # gigantic test - will run ALL names