tests/testthat/test-plotting.R

In MIC: Analysis of Antimicrobial Minimum Inhibitory Concentration Data

test_that("plot.single_ab_validation runs without error", {
  gold <- c("<0.25", "8", "64", ">64")
  test <- c("<0.25", "2", "16", "64")
  val <- compare_mic(gold, test)

  # expect no error (warnings are acceptable)
  expect_error(plot(val), NA)
  expect_error(plot(val, match_axes = FALSE), NA)
})

test_that("plot.multi_ab_validation runs without error", {
  gold <- c("<0.25", "8", "64", ">64", "0.5")
  test <- c("<0.25", "2", "16", "64", "1")
  ab <- c("AMK", "AMK", "CIP", "CIP", "AMK")
  val <- compare_mic(gold, test, ab = ab)

  # default should run (our multi-ab function falls back to single when faceting not requested)
  expect_error(plot(val), NA)

  # explicit faceting should also run (allow warnings)
  expect_error(plot(val, facet_wrap_ncol = 2), NA)
})