tests/testthat/test-easy-Auth.R

In sbg/sevenbridges-r: Seven Bridges Platform API Client and Common Workflow Language Tool Builder in R

library("sevenbridges")

context("Auth Class")

# check_token <- function() {
#   if (missing(token)) {
#     skip("token not available")
#   }
# }

# test_that("Test Auth constructor",{
#     expect_is(Auth("your_token"), "Auth")
#     expect_error(Auth(token))
# })