tests/testthat/test-auth.R

testthat::context("Authentication")

testthat::test_that("Authentication gives back single string", {
  auth_key <- vstsr::vsts_auth_key("x", "y")

  testthat::expect_is(auth_key, "character")
  testthat::expect_length(auth_key, 1)
})

Try the vstsr package in your browser

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

vstsr documentation built on Nov. 9, 2021, 1:07 a.m.