From 1ef07a9d2cff8ac102fa36957871f41bd1f52761 Mon Sep 17 00:00:00 2001
From: Daniel Sjoberg <danield.sjoberg@gmail.com>
Date: Thu, 19 Dec 2024 15:50:00 -0800
Subject: [PATCH] Update test-as_gt.R

---
 tests/testthat/test-as_gt.R | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/tests/testthat/test-as_gt.R b/tests/testthat/test-as_gt.R
index c905eebb2..08a437a18 100644
--- a/tests/testthat/test-as_gt.R
+++ b/tests/testthat/test-as_gt.R
@@ -211,6 +211,29 @@ test_that("as_gt passes table text interpreters correctly", {
 
   # spanning header
   expect_true(attr(gt_tbl$`_spanners`$spanner_label[[2]], "html"))
+
+  # checking the placement of a second spanning header
+  expect_silent(
+    tbl2 <-
+      my_spanning_tbl |>
+      modify_spanning_header(all_stat_cols() ~ "**Tumor Grade**", level = 2) |>
+      as_gt()
+  )
+
+  expect_equal(
+    tbl2$`_spanners` |>
+      dplyr::select(vars, spanner_label, spanner_level) |>
+      dplyr::mutate(
+        vars = map_chr(vars, ~paste(.x, collapse = ", ")),
+        spanner_label = map_chr(spanner_label, as.character)
+      ),
+    data.frame(
+      stringsAsFactors = FALSE,
+      vars = c("stat_1, stat_3", "stat_1, stat_2, stat_3"),
+      spanner_label = c("**Testing**", "**Tumor Grade**"),
+      spanner_level = c(1L, 2L)
+    )
+  )
 })
 
 test_that("as_gt passes table footnotes & abbreviations correctly", {