tests/testthat/test-s3-externalptr.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("externalptr", {
  expect_snapshot({
    dt <- data.table::data.table(a = 1)
    class(dt) <- "data.frame"
    construct(dt, check = FALSE)

    classed_ptr <- structure(attr(dt, ".internal.selfref"), class = "foo")
    construct(classed_ptr, check = FALSE)
  })
})