tests/testthat/test-css.R

test_that("CSS in <link>", {
  content <- read_html(
    # nolint start
    '<html><head><link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.4.1/css/bootstrap.min.css"></head></html>'
    # nolint end
  )
  css <- css_inline(content)
  expect_true("external" %in% names(css))
})
datawookie/emayili documentation built on Feb. 10, 2025, 8:23 p.m.