tests/testthat/test_prediction.Methodology.R

In D2MCS: Data Driving Multiple Classifier System

testthat::test_that("Methodology: initialize function works", {

  testthat::expect_is(Methodology$new(required.metrics = c("MCC", "PPV")),
                      "Methodology")
})

testthat::test_that("Methodology: initialize function checks parameter type", {

  testthat::expect_error(Methodology$new(required.metrics = NULL),
                         "[Methodology][FATAL] Required.metrics parameter must be defined as 'character' type. Aborting...",
                         fixed = TRUE)
})

testthat::test_that("Methodology: getRequiredMetrics function works", {

  testthat::expect_equal(Methodology$new(required.metrics = c("MCC", "PPV"))$getRequiredMetrics(),
                         c("MCC", "PPV"))
})

testthat::test_that("Methodology: compute function works", {

  testthat::expect_error(Methodology$new(required.metrics = c("MCC", "PPV"))$compute(raw.pred = NULL,
                                                                                     prob.pred = NULL,
                                                                                     positive.class = NULL,
                                                                                     negative.class = NULL),
                         "[Methodology][FATAL] Class is abstract. Method should be defined in inherited class. Aborting...",
                         fixed = TRUE)
})