tests/testthat/test-repair_attributes.R

test_that("structure corner cases", {
  a <- 1
  attributes(a) <- list(.Names = "name1", names = "name2", .Label = "label1", levels = "label2")
  expect_snapshot(construct(a))
})

Try the constructive package in your browser

Any scripts or data that you put into this service are public.

constructive documentation built on April 3, 2025, 9:39 p.m.