library(sbgr)
context("Auth Class")
## check_token <- function() {
## if (missing(token)) {
## skip("token not available")
## }
## }
test_that("Test Auth constructor",{
expect_is(Auth("fake_token"), "Auth")
expect_error(Auth(token))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.