tests/testthat/test-data_classes.R

context("data_classes")

test_that("data_classes works", {
  res <- data_classes()
  expect_is(res, "character")
  expect_gte(length(res), 48)

  # With header passthrough
  expect_error(data_classes(agent = "blah"), NA)
})

Try the HIBPwned package in your browser

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

HIBPwned documentation built on April 17, 2018, 5:08 p.m.