restore coverage for styles_mgr (#661)

tests/testthat/test-wb_styles.R

@@ -585,4 +585,161 @@ test_that("wb_add_named_style() works", {
  got <- length(wb$styles_mgr$styles$cellStyles)
  expect_equal(exp, got)
 
+
+ ### run all named styles for coverage
+ wb <- wb_workbook()$add_worksheet()
+
+ name <- "Normal"
+ dims <- "A1"
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Bad"
+ dims <- "B1"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Good"
+ dims <- "C1"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Neutral"
+ dims <- "D1"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Calculation"
+ dims <- "A2"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Check Cell"
+ dims <- "B2"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Explanatory Text"
+ dims <- "C2"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Input"
+ dims <- "D2"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Linked Cell"
+ dims <- "E2"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Note"
+ dims <- "F2"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Output"
+ dims <- "G2"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Warning Text"
+ dims <- "H2"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Heading 1"
+ dims <- "A3"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Heading 2"
+ dims <- "B3"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Heading 3"
+ dims <- "C3"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Heading 4"
+ dims <- "D3"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Title"
+ dims <- "E3"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Total"
+ dims <- "F3"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ for (i in seq_len(6)) {
+
+ name <- paste0("20% - Accent", i)
+ dims <- paste0(int2col(i), "4")
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- paste0("40% - Accent", i)
+ dims <- paste0(int2col(i), "5")
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- paste0("60% - Accent", i)
+ dims <- paste0(int2col(i), "6")
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- paste0("Accent", i)
+ dims <- paste0(int2col(i), "7")
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ }
+
+ name <- "Comma"
+ dims <- "A8"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Comma [0]"
+ dims <- "B8"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Currency"
+ dims <- "C8"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Currency [0]"
+ dims <- "D8"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ name <- "Per cent"
+ dims <- "E8"
+ wb <- wb_add_named_style(wb, dims = dims, name = name)
+ wb$add_data(dims = dims, x = name)
+
+ exp <- c(
+ "Bad", "Good", "Neutral", "Calculation", "Check Cell", "Explanatory Text",
+ "Input", "Linked Cell", "Note", "Output", "Warning Text", "Heading 1",
+ "Heading 2", "Heading 3", "Heading 4", "Title", "Total", "20% - Accent1",
+ "40% - Accent1", "60% - Accent1", "Accent1", "20% - Accent2",
+ "40% - Accent2", "60% - Accent2", "Accent2", "20% - Accent3",
+ "40% - Accent3", "60% - Accent3", "Accent3", "20% - Accent4",
+ "40% - Accent4", "60% - Accent4", "Accent4", "20% - Accent5",
+ "40% - Accent5", "60% - Accent5", "Accent5", "20% - Accent6",
+ "40% - Accent6", "60% - Accent6", "Accent6", "Comma", "Comma [0]",
+ "Currency", "Currency [0]", "Per cent"
+ )
+ got <- wb$styles_mgr$cellStyle$name
+ expect_equal(exp, got)
+
 })