add test

Author: teunbrand

tests/testthat/test-guides.R

@@ -552,6 +552,20 @@ test_that("bins can be parsed by guides for all scale types", {
   )
 })
 
+test_that("binned breaks can have hardcoded labels when oob", {
+
+  sc <- scale_colour_binned(breaks = 1:3, labels = as.character(1:3))
+  sc$train(c(1, 2))
+
+  g <- guide_bins()
+  key <- g$train(scale = sc, aesthetic = "colour")$key
+  expect_equal(key$.label, c("1", "2"))
+
+  g <- guide_coloursteps()
+  key <- g$train(scale = sc, aesthetic = "colour")$key
+  expect_equal(key$.label, c("1", "2"))
+})
+
 test_that("legends can be forced to display unrelated geoms", {
 
   df <- data.frame(x = 1:2)