tests/testthat/test_makeBatchOfBenchExp.R

In pokyah/agrometeoR: Spatial interpolation for Agromet project @ CRA-W

#####
## unit tests for makeBatchOfBenchExp
## to run these tests, use : devtools::test(filter= "makeBatchOfBenchExp")
## in case you want to debug on of these tests, place browser() where you want the code execution to stop

#####
## library and context.
library(testthat)
context("Testing makeBatchOfBenchExp")

#####
## definition of the various function inputs that are tested.
## the objects used in these function inputs definition comes precompiled. See folder data-raw for their source file

groups = list(
  good = list(
    all_good_removeTemp = list(
      cpus = 2,
      tasks = test_tasks,
      learners = list(
        learners$baseLearners$lrn.lm.alt,
        learners$baseLearners$lrn.gstat.idw,
        learners$baseLearners$lrn.gstat.krige),
      resamplings = "LOO",
      grouping = 1,
      prefix = "ut_",
      output_dir = "./testRemove",
      removeTemp = TRUE),
    all_good_keepTemp = list(
      cpus = 2,
      tasks = test_tasks,
      learners = list(
        learners$baseLearners$lrn.lm.alt,
        learners$baseLearners$lrn.gstat.idw,
        learners$baseLearners$lrn.gstat.krige),
      resamplings = "LOO",
      grouping = 1,
      prefix = "ut",
      output_dir = "./testKeep",
      removeTemp = FALSE)
  ),
  warning = list(
    groupingBiggerLengthTasks = list(
      cpus = 2,
      tasks = test_tasks,
      learners = list(
        learners$baseLearners$lrn.lm.alt,
        learners$baseLearners$lrn.gstat.idw,
        learners$baseLearners$lrn.gstat.krige),
      resamplings = "LOO",
      grouping = 10,
      prefix = "ut",
      output_dir = "./testWarning",
      removeTemp = FALSE)
  ),
  bad = list(
    bad_ = list(
      cpus = 2,
      tasks = test_tasks,
      learners = "learners",
      resamplings = "LOO",
      grouping = 2,
      prefix = "ut",
      output_dir = "./bad",
      removeTemp = FALSE)
))

#####
## definition of the unit tests

# test1
test_outputStrucure = function(){test_that("Output has the good structure whatever the inputs", {
  for (group in 1:length(groups)) {
    for (case in 1:length(group)) {
      object = do.call(what = makeBatchOfBenchExp, args = groups[[group]][[case]])

      expect_is(object, class = "list")
      expect_named(object, c("snitch", "output"))
      expect_named(object$output, c("value", "condition"))
    }
  }
})
}

# test2
test_badInput = function(){test_that("Good behaviour in case of bad parameters", {
  for (group in 1:length(groups)) {
    if (names(groups[group]) == "bad") {
      for (case in 1:length(group)) {
        object = do.call(what = makeBatchOfBenchExp, args = groups[[group]][[case]])

        browser()
        expect_false(object$snitch)
        expect_equal(object$output$condition$type, "error")
        expect_null(object$output$value)
      }
    }
  }
})}

# test3
test_goodInput = function(){test_that("Good behaviour in case of good parameter", {
  for (group in 1:length(groups)) {
    if (names(groups[group]) == "good") {
      for (case in 1:length(group)) {
        object = do.call(what = makeBatchOfBenchExp, args = groups[[group]][[case]])

        expect_true(object$snitch)
        expect_is(object$output$value, "list")
        expect_named(object$output, c("value", "condition"))
        expect_named(object$output$value, c("perfs", "aggPerfs", "summary"))
        # expect_identical(nrow(object$output$value), nrow(test_grid))
        # expect_identical(unique(object$output$value$px), unique(test_grid$px))
      }
    }
  }
})}


#####
## execution of the tests. If you want to skip a test, simply comment it :)

test_outputStrucure()
test_badInput()
test_goodInput()