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