#37 add negative test case

miraisolutions · May 7, 2024 · 03f8d92 · 03f8d92
1 parent f306c37
commit 03f8d92
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/inst/unitTests/resources/test37.xlsx b/inst/unitTests/resources/test37.xlsx
diff --git a/inst/unitTests/runit.workbook.readNamedRegion.R b/inst/unitTests/runit.workbook.readNamedRegion.R
@@ -395,5 +395,7 @@ test.workbook.readNamedRegion <- function() {
  read2 <- readNamedRegion(wb37xlsx, 'Bla', worksheetName = 'Sheet2')
  checkEquals(colnames(read1), c("bla1"))
  checkEquals(colnames(read2), c("bla2"))
+
+ checkException(readNamedRegion(wb37xlsx, 'Bla', worksheetName = 'Sheet3'))
 }