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 Sun Jun 16 04:03:14 CEST 2024.