tests/testthat/test-bttn_options.R

test_that("bttn_options works", {
  
  opts <- bttn_options()
  
  expect_is(opts, "list")
  expect_length(opts, 4)
  
  opts <- bttn_options(bg = "#FAFAFA", color = "#FFF")
  
  expect_is(opts, "list")
  expect_length(opts, 6)
})
dreamRs/tuicalendr documentation built on Aug. 4, 2021, 12:02 a.m.