tests/testthat/helper_03_domain.R

In mlr-org/phng: Define and Work with Parameter Spaces for Complex Algorithms

# compare ParamSets, but ignore Param ID

expect_equal_ps = function(a, b) {
  assert_class(a, "ParamSet")
  assert_class(b, "ParamSet")

  normalize_ids = function(original) {
    acl = original$clone(deep = TRUE)
    acp = acl$.__enclos_env__$private
    acp$.params$id = sprintf("x%s", seq_len(original$length))
    names(acp$.values) = sprintf("x%s", match(names(original$values), original$ids()))
    acp$.tags = setkeyv(copy(acp$.tags)[, id := sprintf("x%s", match(id, original$ids()))], key(acp$.tags))
    acp$.trafos = setkeyv(copy(acp$.trafos)[, id := sprintf("x%s", match(id, original$ids()))], key(acp$.trafos))
    acp$.deps[, id := sprintf("x%s", match(id, original$ids()))]
    setindexv(acp$.params, NULL)
    setindexv(acp$.trafos, NULL)
    setindexv(acp$.tags, NULL)
    setindexv(acp$.deps, NULL)
    acl
  }

  expect_equal(normalize_ids(a), normalize_ids(b))
}

reset_indices = function(p) {

  setindexv(p$.__enclos_env__$private$.tags, NULL)
  setindexv(p$.__enclos_env__$private$.trafos, NULL)
  setindexv(p$.__enclos_env__$private$.params, NULL)
  setindexv(p$.__enclos_env__$private$.deps, NULL)
  p
}