tests/testthat/test-style.R

In gaborcsardi/prettycode: Pretty Print R Code in the Terminal

test_that("default_style", {
  def <- default_style()
  expect_true(is.list(def))
  expect_true(
    all(
      names(def) %in%
      c("reserved", "number", "null", "operator", "call", "string", "comment", "bracket")
    )
  )
})