tests/testthat/test-flobr.R

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

test_that("flob_old", {
  expect_true(is_flob(flob_old))
  expect_error(
    chk_flob(flob_old),
    "^Serialized element of `flob_old` must inherit from S3 class 'exint'[.]",
    class = "chk_error"
  )
  expect_null(chk_flob(flob_old, old = TRUE))
  expect_invisible(chk_flob(flob_old, old = TRUE))
  expect_identical(flob_ext(flob_old), "pdf")
  expect_identical(flob_name(flob_old), "file")
  expect_identical(
    unflob(flob_old, tempdir()),
    file.path(tempdir(), paste("file", "pdf", sep = "."))
  )
})

test_that("flob_noname", {
  expect_true(is_flob(flob_noname))
  expect_null(chk_flob(flob_noname))
  expect_invisible(chk_flob(flob_noname))
  expect_identical(flob_ext(flob_noname), "pdf")
  expect_identical(flob_name(flob_noname), "file")
  expect_identical(
    unflob(flob_old, tempdir()),
    file.path(tempdir(), paste("file", "pdf", sep = "."))
  )
})

test_that("package with pdf", {
  path <- system.file("extdata", "flobr.pdf",
    package = "flobr",
    mustWork = TRUE
  )

  expect_error(flob(1),
    "^`path` must be a string [(]non-missing character scalar[)][.]$",
    class = "chk_error"
  )
  expect_error(
    flob(paste(path, "1")),
    p0(
      "^`path` must specify an existing file [(]'.*[.]pdf 1' can't ",
      "be found[)][.]"
    ),
    class = "chk_error"
  )
  flob <- flob(path)
  expect_true(is_flob(flob))
  chk_flob(flob)
  expect_identical(names(flob), path)
  expect_identical(flob_ext(flob), "pdf")
  expect_identical(flob_name(flob), "flobr")

  expect_identical(
    unflob(flob, tempdir()),
    file.path(tempdir(), paste("flobr", "pdf", sep = "."))
  )

  expect_identical(
    unflob(flob, tempdir(), "file2"),
    file.path(tempdir(), paste("file2", "pdf", sep = "."))
  )

  expect_identical(
    unflob(flob, tempdir(), "file2", "csv"),
    file.path(tempdir(), paste("file2", "csv", sep = "."))
  )

  flob2 <- flob(file.path(tempdir(), paste("flobr", "pdf", sep = ".")))
  expect_identical(flob_ext(flob2), flob_ext(flob))
  expect_identical(flob_name(flob2), flob_name(flob))
  expect_equal(flob2, flob, ignore_attr = TRUE)
})

test_that("slob arg works", {
  path <- system.file("extdata", "flobr.pdf",
                      package = "flobr",
                      mustWork = TRUE
  )

  flob <- flobr::flob(path)
  not_flob <- "asd"

  expect_error(
    unflob(slob_obj, tempdir(), slob = FALSE),
    "`flob` must inherit from S3 class 'flob'.",
    class = "chk_error"
  )
  expect_error(
    unflob(slob_obj, tempdir(), slob = TRUE),
    "`name` and `ext` must be provided for slob objects."
  )
  expect_error(
    unflob(flob, tempdir(), slob = TRUE),
    "`name` and `ext` must be provided for slob objects."
  )
  expect_error(
    unflob(not_flob, tempdir(), slob = NA),
    "At least one of the following conditions must be met:\n* `flob` must inherit from S3 class 'blob'.\n* `flob` must inherit from S3 class 'flob'.",
    fixed = TRUE,
    class = "chk_error"
  )
  expect_identical(
    unflob(slob_obj, tempdir(), slob = TRUE, name = "file_name", ext = "pdf"),
    file.path(tempdir(), paste("file_name", "pdf", sep = "."))
  )
  expect_identical(
    unflob(flob, tempdir(), slob = TRUE, name = "file_name", ext = "pdf"),
    file.path(tempdir(), paste("file_name", "pdf", sep = "."))
  )
  expect_identical(
    unflob(flob, tempdir(), slob = NA, name = "file_name", ext = "pdf"),
    file.path(tempdir(), paste("file_name", "pdf", sep = "."))
  )
  expect_identical(
    unflob(slob_obj, tempdir(), slob = NA, name = "file_name", ext = "pdf"),
    file.path(tempdir(), paste("file_name", "pdf", sep = "."))
  )

  # do we like this behavior? semantic error if no check
  expect_identical(
    unflob(slob_obj, tempdir(), slob = NA, name = "", ext = "", check = FALSE),
    file.path(tempdir(), paste("file", "name", sep = "."))
  )

  expect_identical(
    unflob(flob_obj, tempdir(), slob = NA, name = "", ext = "", check = FALSE),
    file.path(tempdir(), paste("flobr", "pdf", sep = "."))
  )

  expect_error(
    unflob(123, tempdir(), slob = NA, name = "", ext = "", check = FALSE),
    "connection' must be a connection"
  )

  expect_error(
    unflob("123", tempdir(), slob = NA, name = "", ext = "", check = FALSE),
    "character vectors are no longer accepted by unserialize()"
  )

})