tests/testthat/test_pipeop_multiplicityexply.R

In mlr3pipelines: Preprocessing Operators and Pipelines for 'mlr3'

context("PipeOpMultiplicityExply")

test_that("multiplicityexply - basic properties", {
  po = PipeOpMultiplicityExply$new(3)
  expect_pipeop(po)
  expect_data_table(po$input, nrows = 1)
  expect_data_table(po$output, nrows = 3)

  expect_pipeop_class(PipeOpMultiplicityExply, list(1))
  expect_pipeop_class(PipeOpMultiplicityExply, list(3))
})

test_that("multiplicityexply - train and predict", {
  tsk = mlr_tasks$get("iris")
  keep1 = setdiff(tsk$feature_names, c("Sepal.Length", "Sepal.Width"))
  keep2 = setdiff(tsk$feature_names, c("Petal.Length", "Petal.Width"))
  t1 = tsk$clone()$select(keep1)
  t2 = tsk$clone()$select(keep2)

  po = PipeOpMultiplicityExply$new(2)
  tout = train_pipeop(po, list(as.Multiplicity(list(t1, t2))))
  expect_list(po$state, len = 0)
  expect_list(tout, len = 2)
  expect_equal(tout[[1]], t1)
  expect_equal(tout[[2]], t2)
  pout = predict_pipeop(po, list(as.Multiplicity(list(t1, t2))))
  expect_list(pout, len = 2)
  expect_equal(pout[[1]], t1)
  expect_equal(pout[[2]], t2)
})