tests/testthat/test-symbol.R

In tidymodels/tune: Tidy Tuning Tools

test_that("Light mode / default `tune_color`s work", {
  old <- options(tidymodels.dark = NULL)
  on.exit(options(old))

  expect_equal(
    tune:::tune_color$symbol$go("hi"),
    black("hi")
  )

  expect_equal(
    tune:::tune_color$message$info("hi"),
    black("hi")
  )
})

test_that("Dark mode `tune_color`s work", {
  old <- options(tidymodels.dark = TRUE)
  on.exit(options(old))

  expect_equal(
    tune:::tune_color$symbol$go("hi"),
    white("hi")
  )

  expect_equal(
    tune:::tune_color$message$info("hi"),
    white("hi")
  )
})

test_that("`tune_color` falls back to light mode with back `tidymodels.dark` option", {
  old <- options(tidymodels.dark = "oh no")
  on.exit(options(old))

  expect_equal(
    tune:::tune_color$symbol$go("hi"),
    black("hi")
  )

  expect_equal(
    tune:::tune_color$message$info("hi"),
    black("hi")
  )
})