test_that("new_params works as intended", {

  params <- new_params(foo = "bar")
  expect_named(
    params,
    c(names(Guide$params), "foo")
  )

})

test_that("standard_extract_key works as intended", {

  scale <- scale_x_continuous(limits = c(0, 10), breaks = c(1, 5, 10))
  key <- standard_extract_key(scale, "x", key = "auto")
  expect_snapshot(key)

})