tests/testthat/test-create_pretty.R

In fresh: Create Custom 'Bootstrap' Themes to Use in 'Shiny'

test_that("create_pretty create a file", {

  tmp <- file.path(tempdir(), "theme.css")

  create_pretty(
    default = "#fff",
    primary = "#fff",
    success = "#fff",
    output_file = tmp
  )

  expect_true(file.exists(tmp))
  unlink(tmp)
})



test_that("create_pretty return CSS", {

  theme <- create_pretty(
    default = "#fff",
    primary = "#fff",
    success = "#fff",
    output_file = NULL
  )

  expect_is(theme, "css")
})



test_that("use_pretty return HTML dependency", {

  tmp <- file.path(tempdir(), "custom-pretty.css")

  create_pretty(
    default = "#fff",
    primary = "#fff",
    success = "#fff",
    output_file = tmp
  )

  expect_is(use_pretty(tmp), "html_dependency")
  unlink(tmp)
})