Improve testing

Author: billdenney

R/objects.R

@@ -33,7 +33,7 @@ vec_ptype_abbr.tab_list <- function(x, ...) {
 
 #' @export
 format.tab_list <- function(x, ...) {
-  rep("A tab_list object", length(x))
+  sprintf("A %s object", vapply(X = x, FUN = \(x) class(x)[1], FUN.VALUE = ""))
 }
 
 #' @export

tests/testthat/test-knit_print.R

@@ -0,0 +1,13 @@
+test_that("knit_print.tab_tibble (and implicitly knit_print.tab_list and print_tablist_pander)", {
+  d_tab <-
+    mtcars |>
+    tidyr::nest(table = !"cyl") |>
+    dplyr::mutate(
+      caption = glue::glue("Cars with {cyl} cylinders")
+    ) |>
+    new_tab_tibble()
+  expect_output(
+    knit_print(d_tab),
+    regexp = "Cars with 8 cylinders"
+  )
+})

tests/testthat/test-objects.R

@@ -9,3 +9,17 @@ test_that("new_tab_list", {
   new_tl <- new_tab_list(list(data.frame(a = 1)))
   expect_s3_class(new_tl, "tab_list")
 })
+
+test_that("vctrs methods", {
+  d_tab <-
+    mtcars |>
+    tidyr::nest(table = !"cyl") |>
+    dplyr::mutate(
+      caption = glue::glue("Cars with {cyl} cylinders")
+    ) |>
+    new_tab_tibble()
+  expect_output(
+    print(d_tab),
+    regexp = "Cars with 8 cylinders"
+  )
+}