tests/testthat/test-add_cta_button.R

In rich-iannone/blastula: Easily Send HTML Email Messages

test_that("the `add_cta_button()` function returns the expected output", {

  cta <-
    add_cta_button(
      url = "https://www.example.com",
      text = "An example website",
      align = "left"
    )

  expect_snapshot(cta)
})