CI tests

2025-09-03 20:49:43 +02:00 · 2019-05-13 12:21:57 +02:00
parent 38a4421450
commit 0dc0715dc6
21 changed files with 137 additions and 68 deletions
--- a/tests/testthat/test-eucast_rules.R
+++ b/tests/testthat/test-eucast_rules.R
@@ -33,6 +33,9 @@ test_that("EUCAST rules work", {
                 "reference.rule", "reference.rule_group"))

  expect_error(suppressWarnings(eucast_rules(septic_patients, col_mo = "Non-existing")))
+  expect_error(eucast_rules(x = "text"))
+  expect_error(eucast_rules(data.frame(a = "test")))
+  expect_error(eucast_rules(data.frame(mo = "test"), rules = "invalid rules set"))

  expect_identical(colnames(septic_patients),
                   colnames(suppressWarnings(eucast_rules(septic_patients))))