tests/testthat/test_local_OMLSeedParList.R

In openml/r: Open Machine Learning and Open Data Platform

test_that("OMLSeedParList", {
  prefixes = c("openml", "bla")
  seeds = 1:2

  for (seed in seeds) {
    for (prefix in prefixes) {
      seed.par = makeOMLSeedParList(seed, prefix = prefix)
      expect_output(print(seed.par), "OMLSeedParList")
      for (i in seq_along(seed.par)) expect_s3_class(seed.par[[i]], "OMLRunParameter")
      expect_s3_class(seed.par, "OMLSeedParList")
      #expect_equal(paste0(prefix, ".", c("seed", "kind", "normal.kind")), unname(extractSubList(seed.par, "name")))
      expect_equal(c(seed, RNGkind()), unname(extractSubList(seed.par, "value")))

      # check isSeedPar
      expect_true(all(isSeedPar(seed.par)))

      # check extractSeed
      expect_equal(extractSeed(seed.par), seed)

      # check seed setting
      setOMLSeedParList(seed.par)
      n = rnorm(3)
      set.seed(seed = seed, kind = RNGkind()[1], normal.kind = RNGkind()[2])
      expect_equal(n, rnorm(3))
    }
  }

  with_test_cache({
    # get run without seed parameter
    run = getOMLRun(1L)
    par = getOMLSeedParList(run)
    expect_s3_class(par, "OMLSeedParList")
    expect_equal(unclass(unname(par)), list())
  })
})