tests/testthat/test_categories.R

context("Categories")

test_that("cat_get handles missing values", {
  expect_error(bwr_cat_get(token = 234234), "Token object does not appear")
  expect_error(bwr_cat_get(token = c(1:10)), "Token object does not appear")
  expect_error(bwr_cat_get(token = "test_token"), "valid project")
})

test_that("cat_create handles missing values", {
  expect_error(bwr_cat_create(token = 234234), "Token object does not appear")
  expect_error(bwr_cat_create(token = c(1:10)), "Token object does not appear")
  expect_error(bwr_cat_create(token = "test_token"), "valid project")
  expect_error(bwr_cat_create(token = "test_token", project = "my_project", name = NULL), "valid name")
})

Try the brandwatchR package in your browser

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

brandwatchR documentation built on May 1, 2019, 10:24 p.m.