Add test cases for #107 (#108)

ropensci · Jun 16, 2023 · 4fd44c3 · 4fd44c3
1 parent 73d0a8a
commit 4fd44c3
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/tests/testdata/legend.rds b/tests/testdata/legend.rds
diff --git a/tests/testthat/test_write_ods_append_update.R b/tests/testthat/test_write_ods_append_update.R
@@ -71,3 +71,10 @@ test_that("Write Excel sheets", {
     df <- read_ods(tmp, "SW10", row_names = TRUE, col_names = TRUE, strings_as_factors = TRUE)
     expect_true(all.equal(starwars10[seq_len(nrow(starwars10)), 1, drop=FALSE], df))
 })
+
+test_that("issue 107", {
+    legend <- readRDS("../testdata/legend.rds")
+    expect_error(write_ods(legend, tmp, sheet = "Legend"), NA)
+    expect_error(write_ods(legend, tmp, sheet = "Legend", update = TRUE), NA)
+    expect_error(write_ods(legend, tmp, sheet = "Legend2", append = TRUE), NA)
+})