tests/testthat/test-null-and-default.R

context("null-and-default")

skip_if_not_installed("modeltests")
library(modeltests)

test_that("tidy.NULL", {
  expect_equal(tidy(NULL), tibble())
})

test_that("tidy.default", {
  expect_error(td <- tidy(raw(1)))

  x <- 5
  class(x) <- c("foo", "bar")
  expect_error(glance(x), regexp = "foo")
  expect_error(glance(x), regexp = "[^bar]")
})


test_that("glance.NULL", {
  expect_equal(glance(NULL), tibble())
})

test_that("glance.default", {
  expect_error(glance(TRUE))
  expect_error(glance(1))
  expect_error(glance(1L))
  expect_error(glance("a"))

  x <- 5
  class(x) <- c("foo", "bar")
  expect_error(glance(x), regexp = "foo")
  expect_error(glance(x), regexp = "[^bar]")
})

test_that("augment.NULL", {
  expect_equal(augment(NULL), tibble())
})

test_that("augment.default", {
  expect_error(augment(TRUE))
  expect_error(augment(1))
  expect_error(augment(1L))
  expect_error(augment("a"))

  x <- 5
  class(x) <- c("foo", "bar")
  expect_error(augment(x), regexp = "foo")
  expect_error(augment(x), regexp = "[^bar]")
})

Try the broom package in your browser

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

broom documentation built on Aug. 30, 2022, 1:07 a.m.