Update test-tab_options.R

rstudio · Jun 11, 2021 · be68e4e · be68e4e
1 parent fcf061a
commit be68e4e
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/tests/testthat/test-tab_options.R b/tests/testthat/test-tab_options.R
@@ -322,6 +322,15 @@ test_that("the internal `opts_df` table can be correctly modified", {
   # ) %>%
   #   expect_equal(c("normal", "bolder"))
 
+  # Modify the `heading.padding`
+  tbl_html <- data %>% tab_options(heading.padding = px(10))
+
+  # Compare before and after values
+  c(dt_options_get_value(data = data, option = "heading_padding"),
+    dt_options_get_value(data = tbl_html, option = "heading_padding")
+  ) %>%
+    expect_equal(c("4px", "10px"))
+
   # Modify the `heading.border.bottom.style`
   tbl_html <- data %>% tab_options(heading.border.bottom.style = "dashed")
 
@@ -439,6 +448,15 @@ test_that("the internal `opts_df` table can be correctly modified", {
   ) %>%
     expect_equal(c("inherit", "uppercase"))
 
+  # Modify the `column_labels.padding`
+  tbl_html <- data %>% tab_options(column_labels.padding = px(10))
+
+  # Compare before and after values
+  c(dt_options_get_value(data = data, option = "column_labels_padding"),
+    dt_options_get_value(data = tbl_html, option = "column_labels_padding")
+  ) %>%
+    expect_equal(c("5px", "10px"))
+
   # Modify the `column_labels.border.top.style`
   tbl_html <- data %>% tab_options(column_labels.border.top.style = "dashed")