tests/testthat/test-shadow.R

context("shadow()")

test_that("adds class", {
  div() %>% shadow("small") %>%
    expect_s3_class("shiny.tag") %>%
    expect_html_class("cas-shadow-sm")

  div(.style %>% shadow("lg")) %>%
    expect_s3_class("shiny.tag") %>%
    expect_html_class("cas-shadow-lg")
})

Try the cascadess package in your browser

Any scripts or data that you put into this service are public.

cascadess documentation built on Jan. 13, 2021, 5:10 p.m.