tests/testthat/test-embed.R

# tests for embed
context("embed")

test_that("embed returns correct string and is character", {
  skip_on_cran()
  
  expect_match(gists()[[1]] %>% embed(), "script src=")
  expect_is(gists()[[1]] %>% embed(), "character")
})

Try the gistr package in your browser

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

gistr documentation built on July 29, 2020, 9:07 a.m.