test_that("empty paramset", {
ps = ()
expect_equal((ps), (0))
expect_equal((ps), (0))
expect_equal((ps), (0))
expect_equal((ps), (0))
expect_equal((ps), ())
expect_output((ps), "Empty parameter set.")
expect_true((ps))
})
test_that("mixed paramset", {
ps = (
("u", lower = 1),
("v", lower = 1, upper = 2),
("w", values = 1:2),
("x"),
("y", len = 2, values = ("a", "b"))
)
expect_equal((ps), ("u", "v", "w", "x", "y"))
expect_equal((ps), (u = 1L, v = 1L, w = 1L, x = 1L, y = 2L))
expect_equal((ps), (u = 1, v = 1L))
expect_equal((ps), (u = , v = 2L))
values1 = (1, 2)
(values1) = 1:2
values2 = ("a", "b")
(values2) = ("a", "b")
values3 = (, )
(values3) = ("TRUE", "FALSE")
expect_equal((ps), (w = values1, x = values3, y = values2))
expect_output((ps), "u\\s*numeric")
})
test_that("mixed paramset 2", {
p1 = (id = "x1", lower = -1L, upper = 1)
p2 = (id = "x2", lower = 0, upper = )
p3 = (id = "x3", values = (a = "char", b = 2L, = 2.2, "e"))
ps = (p1, p2, p3)
expect_true((ps, (0, 0, "char")))
expect_true(!(ps, (2, 0, "char")))
expect_equal((ps), (x1 = -1, x2 = 0))
expect_equal((ps), (x1 = 1, x2 = ))
expect_true((ps, (x3 = 2L, x1 = 0), = ))
})
test_that("cannot build param set from wrong stuff", {
expect_error((1), "Param")
expect_error(
(
("x"),
("x")
), "unique"
)
})
test_that("paramset with vector", {
ps = (
("x", lower = 1),
("y", len = 2, lower = 3L, upper = 9L)
)
expect_equal((ps), ("x", "y"))
expect_equal((ps), (x = 1L, y = 2L))
expect_equal((ps, repeated = , with.nr = ), ("x", "y", "y"))
expect_equal((ps, repeated = , with.nr = ), ("x", "y1", "y2"))
expect_equal((ps), (x = 1, y = 3L, y = 3L))
expect_equal((ps), (x = , y = 9L, y = 9L))
expect_true(((ps)))
expect_equal(((ps)), 0)
expect_output((ps), "x\\s*numeric")
})
test_that("list works", {
ps = (params = (
("u", lower = 1),
("v", lower = 1, upper = 2)
))
expect_equal((ps), ("u", "v"))
expect_output((ps), "u\\s*numeric")
})
test_that("combination with c works", {
ps1 = (
("u", lower = 1),
("v", len = 2, lower = 3L, upper = 9L)
)
ps2 = (
("w", values = 1:2),
("x")
)
# ps with "difficult" name
ps3 = (
("params")
)
ps = (ps1, ps2)
expect_equal((ps$pars), 4)
expect_equal((ps), ((ps1), (ps2)))
ps = (ps1, ps3)
expect_equal((ps$pars), 3)
expect_equal((ps), ((ps1), (ps3)))
})
test_that("cannot combine with overlapping names", {
ps1 = (
("u")
)
ps2 = (
("u", values = 1:2)
)
expect_error((ps1, ps2), "unique")
})
test_that("unknown length works", {
ps = (
("u", lower = 2),
("v", len = , lower = 1)
)
expect_equal((ps), (u = 1, v = ))
expect_true((ps, (3, (2))))
expect_true((ps, (3, (2, 4))))
expect_false((ps, (3, (2, 0))))
expect_error((ps), "Cannot sample")
})
test_that("makeNumericParamset", {
ps = (lower = 10, len = 2, = )
expect_equal((ps), "x")
expect_equal((ps), (x = 2))
expect_equal((ps), (x = 10, x = 10))
expect_equal((ps), (x = , x = ))
ps = (upper = 10, len = 2, = )
expect_equal((ps), "x")
expect_equal((ps), (x = 2))
expect_equal((ps), (x = -, x = -))
expect_equal((ps), (x = 10, x = 10))
ps = (id = "y", upper = 3, len = 2, = )
expect_equal((ps), ("y1", "y2"))
expect_equal((ps), (y1 = 1, y2 = 1))
expect_equal((ps), (y1 = -, y2 = -))
expect_equal((ps), (y1 = 3, y2 = 3))
ps = (lower = (1, 2), = )
expect_equal((ps), (x = 1, x = 2))
ps = (lower = (1, 4), upper = (2, 7), = )
expect_equal((ps), (x1 = 1, x2 = 4))
expect_equal((ps), (x1 = 2, x2 = 7))
})
test_that("requires works", {
ps = (
("x", values = ("a", "b"), default = "a"),
("y", requires = (x == "a")),
("z", len = 2, requires = (x == "b"))
)
expect_true((ps, (x = "a", y = 1, z = )))
expect_false((ps, (x = "a", y = , z = 1)))
expect_false((ps, (x = "a", y = , z = (, ))))
expect_false((ps, (x = "b", y = 1, z = (2, 2))))
expect_true((ps, (x = "b", y = , z = (2, 2))))
expect_true((ps, (x = "a")))
expect_true((ps, (x = "c"))) # out of bound is supposed to be ignored
expect_true((ps, (y = 1)))
expect_error((ps, (y = 1), use.defaults = ))
expect_error((ps, (y = 1, x = "b")), 'x == "a"')
})
test_that("requires chains work", {
ps = (
("a", default = ),
("b", default = , requires = (a == )),
("c", default = , requires = (b == ))
)
expect_true((ps, (a = , b = , = )))
expect_true((ps, (a = , b = , = )))
expect_true((ps, (a = , b = , = )))
expect_true((ps, (a = , b = , = )))
})
test_that("print works", {
ps = (
("ntree", lower = 10, upper = 50),
("cutoff", len = 3, lower = 0.001, upper = 1, trafo = (x) 0.9 * x / (x))
)
expect_output((ps), "numericvector")
expect_output((ps), "3")
ps = (
(id = "x", default = 50L, lower = 1L),
(id = "v", default = 1:2, len = 2L)
)
expect_output((ps, trafo = , used = ), "numericvector")
ps = (
(id = "x", default = 50L, lower = 1L),
(id = "v", default = 1:2, len = 2L),
forbidden = (x < v[1]])
)
expect_output((ps), "Forbidden region specified")
})
test_that("expressions get converted", {
ps1 = (
("a", default = ),
("b", default = , requires = (a == ))
)
ps2 = (
("a", default = ),
("b", default = , requires = (a == ))
)
expect_class(ps1$pars$b$requires, "call")
expect_equal(ps1, ps2)
expect_error({
ps = (
("a", default = ),
("b", default = , requires = "a == TRUE")
)
}, "call")
})
test_that("test whether paramset fails gracefully", {
li = (
("a", default = ),
("b", default = , requires = (a == ))
)
expect_error({
(
("a", default = ),
("b", default = , requires = (a == )),
params = li
)
}, = "You can only use one of \\.\\.\\. or params!")
})
