tests/testthat/test-authentication.R

context('test Petfinder API authentication')


test_that('authentication to Petfinder API works correctly', {
  skip_on_cran()
  pf <- Petfinder(key = Sys.getenv('PETFINDER_KEY'), 
                  secret = Sys.getenv('PETFINDER_SECRET_KEY'))
  
  expect_true(is.character(pf$.__enclos_env__$private$auth))
})

Try the PetfindeR package in your browser

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

PetfindeR documentation built on July 8, 2020, 7:19 p.m.