tests/testthat/test-create_token_profile.R

context("test-create_token_profile")

test_that("create_token_profile() works!", {
  myProfile <- create_token_profile("abc1234567890")
  testthat::expect_type(myProfile, "environment")
  testthat::expect_s3_class(myProfile, "R6")
  testthat::expect_s3_class(myProfile, "NSSPToken")
})
CDCgov/Rnssp documentation built on May 12, 2024, 1:32 a.m.