tests/testthat/test.buildCVModel.R

In bartzbeielstein/SPOT: Sequential Parameter Optimization Toolbox

context("test buildCVModel")

test_that("calling with different models results in different stuff", {
    set.seed(1)
    resA <- spot(,funSphere,c(-2,-3),c(1,2), control = list(model = buildCVModel, modelControl = 
                                                        list(modellingFunction = buildKriging)))
    set.seed(1)
    resB <- spot(,funSphere,c(-2,-3),c(1,2), control = list(model = buildCVModel))
    
    set.seed(1)
    suppressWarnings(resC <- spot(,funSphere,c(-2,-3),c(1,2), control = list(model = buildCVModel, modelControl = 
                                                        list(modellingFunction = buildRandomForest))))
    
    expect_true(all(resA$x == resB$x))
    expect_true(!all(resA$x == resC$x))
})