tests/testthat/test-vld.R

In flobr: Convert Files to and from Binary Objects (BLOBs)

test_that("vld_flob", {
  expect_true(vld_s3_class(flob_old, "flob"))
  expect_true(vld_scalar(flob_old))
  expect_true(vld_flob(flob_old, old = TRUE))
  expect_false(vld_flob(flob_old))

  x <- list(x = 1)
  class(x) <- "flob"
  expect_false(vld_flob(x))
})


test_that("vld_slob", {
  expect_true(vld_slob(slob_obj))
  expect_true(vld_slob(flob_obj))
  expect_false(vld_slob(1))

  x <- list(x = 1)
  class(x) <- "blob"
  expect_false(vld_slob(x))
})