tests/testthat/test-show.R

test_that("show is stable", {
  load("testdata/iris_test_output.rds")
  load("testdata/iris_test.rds")
  appendix(iris_test) <- list("a" = "hello")
  expect_equal(
    capture.output(iris_test),
    iris_test_output
  )
})
mikemahoney218/mvdf documentation built on May 7, 2021, 11:46 a.m.