fix unit test surfaced by fixes in discrete_range behavior

r-lib · Nov 1, 2023 · 170c51e · 170c51e
1 parent eeae014
commit 170c51e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-range.R b/tests/testthat/test-range.R
@@ -17,7 +17,7 @@ test_that("Mutable ranges work", {
   x <- DiscreteRange$new()
   x$train(factor(letters[1:3]))
   expect_equal(x$range, c("a", "b", "c"))
-  x$train(factor("a", "h"))
+  x$train(factor(c("a", "h")))
   expect_equal(x$range, c("a", "b", "c", "h"))
   x$reset()
   expect_equal(x$range, NULL)