1context("range")
2
3test_that("continuous ranges expand as expected", {
4  r <- continuous_range()
5
6  r$train(1)
7  expect_equal(r$range, c(1, 1))
8
9  r$train(10)
10  expect_equal(r$range, c(1, 10))
11})
12
13test_that("discrete ranges expand as expected", {
14  r <- discrete_range()
15
16  r$train("a")
17  expect_equal(r$range, "a")
18
19  r$train("b")
20  expect_equal(r$range, c("a", "b"))
21
22  r$train(letters)
23  expect_equal(r$range, letters)
24})
25