tests/testthat/test-workspace.R

test_that("show_environment returns a tibble", {
  expect_s3_class(object = show_environment(), class = "tbl")
  expect_s3_class(object = show_environment(), class = "data.frame")
})

test_that("show_environment lists objects", {
  expect_equal(object = show_environment()[[1]], expected = objects())
})
djnavarro/tidylsr documentation built on Sept. 6, 2019, 8:06 p.m.