adds tests for tableName in buildWorkbook()

resolves #187

R/writeDataTable.R

@@ -200,7 +200,7 @@ writeDataTable <- function(
   assert_true_false(bandedCols)
 
   if (is.null(tableName)) {
-    tableName <- paste0("Table", as.character(length(wb$tables) + 3L))
+    tableName <- sprintf("Table%i", length(wb$tables) + 3L)
   } else {
     tableName <- wb$validate_table_name(tableName)
   }

tests/testthat/test-build_workbook.R

@@ -0,0 +1,18 @@
+test_that("buildWorkbook() accepts tableName [187]", {
+  x <- data.frame(a = 1, b = 2)
+
+  # default name
+  wb <- buildWorkbook(x, asTable = TRUE)
+  expect_equal(attr(wb$tables, "tableName"), "Table3")
+
+  # define 1/2 table name
+  wb <- buildWorkbook(x, asTable = TRUE, tableName = "table_x")
+  expect_equal(attr(wb$tables, "tableName"), "table_x")
+
+  # define 2/2 table names
+  wb <- buildWorkbook(list(x, x), asTable = TRUE, tableName = c("table_x", "table_y"))
+  expect_equal(attr(wb$tables, "tableName"), c("table_x", "table_y"))
+
+  # try to define 1/2 table names
+  expect_error(buildWorkbook(list(x, x), asTable = TRUE, tableName = "table_x"))
+})