tests/testthat/test-embed.R

In ropensci/gistr: Work with 'GitHub' 'Gists'

# 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")
})