tests/testthat/test-vctrs-tidytable.R

test_that("vec_cbind returns a tidytable", {
  new_df <- vec_cbind(data.frame(x = 1:3), tidytable(y = "foo"))

  expect_true(is_tidytable(new_df))
})
mtfairbanks/gdt documentation built on March 26, 2024, 8:35 p.m.