[tests] update tests

JanMarvin · Aug 18, 2024 · 0dc8223 · 0dc8223
1 parent 31326ad
commit 0dc8223
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-save.R b/tests/testthat/test-save.R
@@ -281,7 +281,7 @@ test_that("write cells without data", {
   expect_equal(exp, got)
 
   sheet <- paste0(tmp_dir, "/xl/worksheets/sheet1.xml")
-  exp <- "<sheetData><row r=\"2\"><c r=\"B2\"/><c r=\"C2\"/></row><row r=\"3\"><c r=\"B3\"/><c r=\"C3\"/></row></sheetData>"
+  exp <- "<sheetData><row r=\"2\"/><row r=\"3\"/></sheetData>"
   got <- xml_node(sheet, "worksheet", "sheetData")
   expect_equal(exp, got)
 

diff --git a/tests/testthat/test-write.R b/tests/testthat/test-write.R
@@ -809,7 +809,7 @@ test_that("writing na.strings = NULL works", {
   write_xlsx(matrix(NA, 2, 2), tmp, na.strings = NULL)
   wb <- wb_load(tmp)
 
-  exp <- ""
+  exp <- NA_character_
   got <- unique(wb$worksheets[[1]]$sheet_data$cc$v[3:6])
   expect_equal(exp, got)