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/BDSHInfra documentation built on May 12, 2021, 4:42 a.m.