Nothing
context('test method error checking')
test_that('invalid parameters and other errors return appropriate responses', {
skip_on_cran()
pf <- Petfinder(key = Sys.getenv('PETFINDER_KEY'),
secret = Sys.getenv('PETFINDER_SECRET_KEY'))
# Animal Types
expect_error(pf$animal_types(types = 'zebra'))
expect_error(pf$animal_types(types = pf))
expect_error(pf$animal_types(types = 1))
# Breeds
expect_error(pf$breeds(animal_types = 'zebra'))
expect_error(pf$breeds(animal_types = pf))
expect_error(pf$breeds(animal_types = 1))
# Animals & Organizations
expect_error(pf$animals(animal_type = 'zebra'))
expect_error(pf$animals(size = 'mega'))
expect_error(pf$animals(gender = 'test'))
expect_error(pf$animals(age = 'cutebaby'))
expect_error(pf$animals(coat = 'softandfluffy'))
expect_error(pf$animals(status = 'blank'))
expect_error(pf$animals(sort = 'none'))
expect_error(pf$animals(results_per_page = 1000))
expect_error(pf$organizations(distance = 1000))
expect_error(pf$organizations(country = 'MX'))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.