tests/testthat/test-ext-feather.R

In BAAQMD/cacher: Cache Objects on Disk

context("ext = .feather")

test_that("tabular data", {

  foo1 <- cached("test", "foo", ext = ".feather", verbose = TRUE) %or% tibble::tibble(foo = "bar", baz = 3.14)
  foo2 <- cached("test", "foo", ext = ".feather", verbose = TRUE) %or% NULL
  expect_identical(foo1, foo2)

})