test_that("cached breaks cache breaks", { breaks <- scales::breaks_extended() cached <- breaks_cached(breaks) # wrapping doesn't change the underlying calculation... expect_equal(cached(c(0, 23)), breaks(c(0, 23))) # ... but it freezes the result, ignoring new limits expect_equal(cached(c(0, 50)), breaks(c(0, 23))) })