tests/testthat/test_working.R

In dwernersexton/rPOS: Provides access to the Tapestry POS API

# Usage Guidelines --------------------------------------------------------

sample_upc <- c('889532638123', '889532677788')
sample_store <- c('3301','3254')

# Test Success ------------------------------------------------------------

# Test multi-item, single-store
testthat::expect_s3_class(
  callInvAPI(upc = sample_upc[1], store_num = 'JAX', api_key = Sys.getenv('IBM_API_KEY')), class = 'data.frame'
)

# Test multi-item, multi-store
testthat::expect_s3_class(
  callInvAPI(upc = sample_upc, store_num = sample_store, api_key = Sys.getenv('IBM_API_KEY')), class = 'data.frame'
)

# Test multi-item, distance in miles
testthat::expect_s3_class(
  callInvAPI(upc = sample_upc[1], search_postal_code = '10001', search_radius = 10, search_radius_units = 'miles',
             api_key = Sys.getenv('IBM_API_KEY')),
  class = 'data.frame'
)

# Test multi-item, distance in miles as character
testthat::expect_s3_class(
  callInvAPI(upc = sample_upc[1], search_postal_code = '10001', search_radius = '10', search_radius_units = 'miles',
             api_key = Sys.getenv('IBM_API_KEY')),
  class = 'data.frame'
)

# Test multi-item, distance in meters as character
testthat::expect_s3_class(
  callInvAPI(upc = sample_upc[1], search_postal_code = '10001', search_radius = '10000', search_radius_units = 'meters',
             api_key = Sys.getenv('IBM_API_KEY')),
  class = 'data.frame'
)


# Test multi-item, distance in meters as character, postal code as numeric
testthat::expect_s3_class(
  callInvAPI(upc = sample_upc[1], search_postal_code = 10001, search_radius = '10000', search_radius_units = 'meters',
             api_key = Sys.getenv('IBM_API_KEY')),
  class = 'data.frame'
)