tests/testthat/test-serializer-rds.R

In plumber: An API Generator for R

context("rds serializer")

test_that("rds serializes properly", {
  v <- iris[0,]
  attr(v, "origin") <- iris
  val <- serializer_rds()(v, list(), PlumberResponse$new(), stop)
  expect_equal(val$status, 200L)
  expect_equal(val$headers$`Content-Type`, "application/rds")
  expect_equal(val$body, serialize(v, NULL, ascii = FALSE, version = 2L))
  expect_equal(unserialize(val$body), v)
})