tests/testthat/test-generate.R

In ropensci/charlatan: Make Fake Data

context("ch_generate")

test_that("ch_generate works - default settings", {
  aa <- ch_generate()

  expect_is(aa, "data.frame")
  expect_is(aa, "tbl_df")
  expect_named(aa, c("name", "job", "phone_number"))
  expect_is(aa$name, "character")
  expect_is(aa$job, "character")
  expect_is(aa$phone_number, "character")

  expect_equal(NROW(aa), 10)
})


test_that("ch_generate works - choose fields", {
  aa <- ch_generate("job")
  expect_is(aa, "data.frame")
  expect_is(aa, "tbl_df")
  expect_named(aa, "job")

  aa <- ch_generate("job", "currency")
  expect_is(aa, "data.frame")
  expect_is(aa, "tbl_df")
  expect_named(aa, c("job", "currency"))
})


test_that("ch_generate works - n: number of rows", {
  aa <- ch_generate(n = 1)
  bb <- ch_generate(n = 100)

  expect_equal(NROW(aa), 1)
  expect_equal(NROW(bb), 100)
})


test_that("ch_generate works - locale", {
  aa <- ch_generate()
  bb <- ch_generate(locale = "fr_FR")
  cc <- ch_generate(locale = "fr_CH")

  expect_is(aa, "data.frame")
  expect_equal(NROW(aa), 10)

  expect_is(bb, "data.frame")
  expect_equal(NROW(bb), 10)

  expect_is(cc, "data.frame")
  expect_equal(NROW(cc), 10)
})



test_that("ch_generate fails well", {
  # has to be character
  expect_error(ch_generate(4), "choices must be of class character")

  expect_error(
    ch_generate(n = "Asdf"),
    "n must be of class integer, numeric"
  )

  expect_error(
    ch_generate(locale = "foobar"),
    "There is no locale foobar for provider PersonProvider"
  )
})