tests/testthat/test-cast.R

In tidyverse/blob: A Simple S3 Class for Representing Vectors of Binary Data ('BLOBS')

context("test-cast")

test_that("casting with as.blob()", {
  # Deprecated in v1.2.0
  local_lifecycle_silence()

  expect_identical(as.blob(blob(raw(1))), blob(raw(1)))
  expect_identical(as.blob(list(raw(1))), blob(raw(1)))
  expect_identical(as.blob(raw(1)), blob(raw(1)))
  expect_identical(as.blob(1:3), blob(as.raw(1), as.raw(2), as.raw(3)))
  expect_identical(as.blob(c("abc", "def")), blob(charToRaw("abc"), charToRaw("def")))
})

test_that("casting with as_blob()", {
  expect_identical(as_blob(blob(raw(1))), blob(raw(1)))
  expect_identical(as_blob(list(raw(1))), blob(raw(1)))
  expect_identical(as_blob(raw(1)), blob(raw(1)))
  expect_identical(blob(!!!as.raw(1:3)), blob(as.raw(1), as.raw(2), as.raw(3)))
  expect_identical(as_blob(c("abc", "def")), blob(charToRaw("abc"), charToRaw("def")))
})

test_that("NA_character_ is converted to missing blob()", {
  expect_identical(as_blob(NA_character_), blob(NULL))
  expect_identical(as_blob(c("1", NA_character_)), blob(as.raw(0x031), NULL))
})