@@ -61,24 +61,24 @@ test_that("ResultAssignerArchive passes internal tuned values", {
6161 validate = 0.2 ,
6262 early_stopping = TRUE ,
6363 x = to_tune(0.2 , 0.3 ),
64- iter = to_tune(upper = 1000 , internal = TRUE , aggr = function (x ) 99 ))
64+ iter = to_tune(upper = 1000L , internal = TRUE , aggr = function (x ) 99L ))
6565
6666 instance = ti(
6767 task = tsk(" pima" ),
6868 learner = learner ,
69- resampling = rsmp(" cv" , folds = 3 ),
69+ resampling = rsmp(" cv" , folds = 3L ),
7070 measures = msr(" classif.ce" ),
71- terminator = trm(" evals" , n_evals = 20 ),
71+ terminator = trm(" evals" , n_evals = 20L ),
7272 store_benchmark_result = TRUE
7373 )
7474 surrogate = SurrogateLearner $ new(REGR_KM_DETERM )
7575 acq_function = AcqFunctionEI $ new()
7676 acq_optimizer = AcqOptimizer $ new(opt(" random_search" , batch_size = 2L ), terminator = trm(" evals" , n_evals = 2L ))
7777
7878 tuner = tnr(" mbo" , result_assigner = result_assigner )
79- expect_data_table(tuner $ optimize(instance ), nrows = 1 )
80- expect_list(instance $ archive $ data $ internal_tuned_values , len = 20 , types = " list" )
81- expect_equal(instance $ archive $ data $ internal_tuned_values [[1 ]], list ( iter = 99 ) )
79+ expect_data_table(tuner $ optimize(instance ), nrows = 1L )
80+ expect_list(instance $ archive $ data $ internal_tuned_values , len = 20L , types = " list" )
81+ expect_equal(instance $ archive $ data $ internal_tuned_values [[1L ]] $ iter , 99L )
8282 expect_false(instance $ result_learner_param_vals $ early_stopping )
83- expect_equal(instance $ result_learner_param_vals $ iter , 99 )
83+ expect_equal(instance $ result_learner_param_vals $ iter , 99L )
8484})
0 commit comments