tests/testthat/testpart1.R

In yitang310/zomator: Wrapper to the Zomato API

# this is the test for functions get_categories, get_cities, get_collections, get_cuisines
context("Test functions part 1")

#please replace with your own API key.
key1<-"testkey"

#test get_categories
test_that("test get_categories",{
  expect_error(get_categories())
  expect_error(get_categories("123456"))
  expect_is(get_categories(key1), "character")
  expect_error(get_categories(key1)$categories.name)
  expect_true(length(get_categories(key1)) > 0)
})

#test get_cities
test_that("test get_cities",{
  expect_error(get_cities())
  expect_error(get_cities("123456"))
  expect_true(length(get_cities(key1))>0)
  expect_is(get_cities(key1,"van"), "character")
  expect_error(get_cities("123456","van",lat=NULL,lon=NULL,city_ids=NULL,count=12))
})

#test get_collections
test_that("test get_collections",{
  expect_error(get_collections())
  expect_error(get_collections("123456"))
  expect_true(length(get_collections(key1))>0)
  expect_is(get_collections(key1,256), "character")
  expect_error(get_collections("123456",256))
})

#test get_cuisines
test_that("test get_cuisines",{
  expect_error(get_cuisines())
  expect_error(get_cuisines("123456"))
  expect_true(length(get_cuisines(key1))>0)
  expect_is(get_collections(key1,256), "character")
  expect_true(length(get_cuisines(key1,256)) !=10)
  expect_error(get_cuisines("123456",256))
})