tests/testthat/test_checkListPlots.R

In collinleiber/benchmarkVis: Benchmark result visualisation

context("List plots")

# Check if creating a list line plot with histogram throws an error
test_that("createListLinePlot Test mlr benchmark with histogram", {
  p = createListLinePlot(mlr.benchmark.example, "list.ber", "mean", TRUE)
  expect_true(is.list(p))
})

# Check if creating a list line plot throws an error
test_that("createListLinePlot Test microbenchmark", {
  tmp = microbenchmark.example
  tmp$replication = NULL
  p = createListLinePlot(tmp, "list.values")
  expect_true(is.list(p))
})

# Check if creating a list density plot throws an error
test_that("createListDensityPlot Test mlr benchmark", {
  p = createListDensityPlot(mlr.benchmark.example, "list.ber", TRUE)
  expect_true(is.list(p))
})

# Check if creating a list density plot throws an error
test_that("createListDensityPlot Test microbenchmark", {
  tmp = microbenchmark.example
  tmp$replication = NULL
  p = createListDensityPlot(tmp, "list.values")
  expect_true(is.list(p))
})

# Check if creating a list density rank plot throws an error
test_that("createListDensityRankPlot Test mlr benchmark", {
  p = createListDensityRankPlot(mlr.benchmark.example, "list.ber", TRUE)
  expect_true(is.list(p))
})

# Check if creating a list density rank plot throws an error
test_that("createListDensityRankPlot Test microbenchmark", {
  tmp = microbenchmark.example
  tmp$replication = NULL
  p = createListDensityRankPlot(tmp, "list.values")
  expect_true(is.list(p))
})

# Check if creating a list rank matrix bar plot throws an error
test_that("createListRankMatrixBarPlot Test mlr benchmark", {
  p = createListRankMatrixBarPlot(mlr.benchmark.example, "list.ber", TRUE)
  expect_true(is.list(p))
})

# Check if creating a list rank matrix bar plot throws an error
test_that("createListRankMatrixBarPlot Test microbenchmark", {
  tmp = microbenchmark.example
  tmp$replication = NULL
  p = createListRankMatrixBarPlot(tmp, "list.values", FALSE)
  expect_true(is.list(p))
})

# Check if creating a list dual measure plot throws an error
test_that("createListDualMeasurePlot Test mlr benchmark", {
  p = createListDualMeasurePlot(mlr.benchmark.example, "list.mmce", "list.timetrain")
  expect_true(is.list(p))
})

# Check if creating a list dual measure plot with lines throws an error
test_that("createListDualMeasurePlot Test with lines mlr benchmark", {
  tmp = mlr.benchmark.example
  tmp$replication = NULL
  p = createListDualMeasurePlot(tmp, "list.mmce", "list.ber", TRUE, regression.line = TRUE)
  expect_true(is.list(p))
})

# Check if creating a list scatter plot throws an error
test_that("createListScatterPlot Test mlr benchmark", {
  p = createListScatterPlot(mlr.benchmark.example, "list.mmce")
  expect_true(is.list(p))
})

# Check if creating a list scatter plot throws an error
test_that("createListScatterPlot Test microbenchmark", {
  tmp = microbenchmark.example
  tmp$replication = NULL
  p = createListScatterPlot(tmp, "list.values")
  expect_true(is.list(p))
})

# Check if creating a list box plot throws an error
test_that("createListBoxPlot Test mlr benchmark", {
  p = createListBoxPlot(mlr.benchmark.example, "list.mmce")
  expect_true(is.list(p))
})

# Check if creating a list box plot throws an error
test_that("createListBoxPlot Test microbenchmark with violin", {
  tmp = microbenchmark.example
  tmp$replication = NULL
  p = createListBoxPlot(tmp, "list.values", TRUE)
  expect_true(is.list(p))
})

# Check if creating a lsit measure matrix plot throws an error
test_that("createListMeasureMatrixPlot Test mlr benchmark", {
  p = createListMeasureMatrixPlot(mlr.benchmark.example)
  expect_true(is.list(p))
})

# Check if creating a lsit measure matrix plot throws an error
test_that("createListMeasureMatrixPlot Test microbenchmark", {
  tmp = microbenchmark.example
  tmp$replication = NULL
  p = createListMeasureMatrixPlot(tmp)
  expect_true(is.list(p))
})