tests/testthat/test-type.R

test_that("Type assignment works", {
  x <- y <- c(letters[1:4])
  attr(x, "type") <- "x"
  type(y) <- "x"
  expect_identical(x, y)
})
JamesCuster/infra documentation built on May 9, 2021, 1:49 p.m.