tests/testthat/test-read-builtin.R

In readr: Read Rectangular Text Data

test_that("read_builtin works", {
  # fails with unquoted symbol
  expect_snapshot(read_builtin(AirPassengers, "datasets"), error = TRUE)

  # fails with an error if data set doesn't exist in package
  expect_snapshot(read_builtin("nasa", "readr"), error = TRUE)

  # fails with error if the dataset namespace is not attached
  if (!"dplyr" %in% loadedNamespaces()) {
    expect_snapshot(read_builtin("starwars"), error = TRUE)
  }

  # works if data set exists in package
  expect_true(is.data.frame(read_builtin("BOD", "datasets")))

  # works if data set package is loaded
  if ("datasets" %in% loadedNamespaces()) {
    expect_true(is.data.frame(read_builtin("BOD")))
  }
})