test_that("continuous ranges expand as expected", {
r <- continuous_range()
r$train(1)
expect_equal(r$range, c(1, 1))
r$train(10)
expect_equal(r$range, c(1, 10))
})
test_that("discrete ranges expand as expected", {
r <- discrete_range()
r$train("a")
expect_equal(r$range, "a")
r$train("b")
expect_equal(r$range, c("a", "b"))
r$train(letters)
expect_equal(r$range, letters)
})
Generated by dwww version 1.15 on Fri Jun 21 07:25:19 CEST 2024.