tests/testthat/test_checkDualMeasurePlot.R

In collinleiber/benchmarkVis: Benchmark result visualisation

context("Dual Measure Plot")

# Check if creating a Dual Measure plot throws an error
test_that("createDualMeasurePlot for mlr benchmark", {
  p = createDualMeasurePlot(mlr.benchmark.example, "measure.mmce.test.mean", "measure.ber.test.mean")
  expect_true(is.list(p))
})

# Check if creating a Dual Measure Plot throws an error
test_that("createDualMeasurePlot for microbenchmark", {
  tmp = microbenchmark.example
  tmp$replication = NULL
  p = createDualMeasurePlot(tmp, "measure.mean", "measure.median", interaction.column = "problem", regression.line = TRUE)
  expect_true(is.list(p))
})