tests/testthat/test_prediction.PredictionOutput.R

In D2MCS: Data Driving Multiple Classifier System

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

  testthat::expect_is(PredictionOutput$new(predictions = NULL,
                                           type = NULL,
                                           target = NULL),
                      "PredictionOutput")
})

testthat::test_that("PredictionOutput: getPredictions function works", {

  testthat::expect_null(PredictionOutput$new(predictions = NULL,
                                             type = NULL,
                                             target = NULL)$getPredictions())
})

testthat::test_that("PredictionOutput: getType function works", {

  testthat::expect_null(PredictionOutput$new(predictions = NULL,
                                             type = NULL,
                                             target = NULL)$getType())
})

testthat::test_that("PredictionOutput: getTarget function works", {

  testthat::expect_null(PredictionOutput$new(predictions = NULL,
                                             type = NULL,
                                             target = NULL)$getTarget())
})