[tests] provide testsetup function and use it. Can be checked with `s…

…topifnot(ts == as.POSIXct("2023-07-20 23:32:14", tz = "UTC"))` (#857)
JanMarvin · Nov 23, 2023 · ff44f24 · ff44f24
1 parent e3355ef
commit ff44f24
Show file tree

Hide file tree

Showing 13 changed files with 34 additions and 12 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -43,4 +43,3 @@ RoxygenNote: 7.2.3
 Roxygen: list(markdown = TRUE)
 Config/testthat/edition: 3
 Config/testthat/parallel: true
-Config/testthat/start-first: aaa
diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
@@ -1024,3 +1024,22 @@ testfile_path <- function(x, replace = FALSE) {
     return(fl)
   }
 }
+
+
+testsetup <- function() {
+
+  if (is.null(getOption("openxlsx2.datetimeCreated"))) {
+    testthat::test_that("testsetup", {
+
+      options("openxlsx2.datetimeCreated" = as.POSIXct("2023-07-20 23:32:14", tz = "UTC"))
+
+      wb <- wb_workbook()
+
+      exp <- "2023-07-20T23:32:14Z"
+      got <- wb$get_properties()[["datetime_created"]]
+      testthat::expect_equal(exp, got)
+
+    })
+  }
+
+}
diff --git a/tests/testthat/test-aaa.R b/tests/testthat/test-aaa.R
diff --git a/tests/testthat/test-asserts.R b/tests/testthat/test-asserts.R
@@ -1,3 +1,4 @@
+testsetup()
 
 test_that("assert_class() works", {
   expect_null(assert_class(2L, "integer"))

diff --git a/tests/testthat/test-base_font.R b/tests/testthat/test-base_font.R
@@ -1,3 +1,5 @@
+testsetup()
+
 test_that("get_base_font works", {
   wb <- wb_workbook()
   expect_equal(

diff --git a/tests/testthat/test-class-chart-sheet.R b/tests/testthat/test-class-chart-sheet.R
@@ -1,3 +1,4 @@
+testsetup()
 
 test_that("class wbChartSheet works", {
 

diff --git a/tests/testthat/test-class-color.R b/tests/testthat/test-class-color.R
@@ -1,3 +1,4 @@
+testsetup()
 
 test_that("class color works", {
   expect_null(assert_color(wb_colour()))

diff --git a/tests/testthat/test-class-comment.R b/tests/testthat/test-class-comment.R
@@ -1,3 +1,4 @@
+testsetup()
 
 test_that("class wbComment works", {
   expect_null(assert_comment(wb_comment()))

diff --git a/tests/testthat/test-class-hyperlink.R b/tests/testthat/test-class-hyperlink.R
@@ -1,3 +1,4 @@
+testsetup()
 
 test_that("class Hyperlink works", {
   expect_null(assert_hyperlink(wb_hyperlink()))

diff --git a/tests/testthat/test-class-workbook-utils.R b/tests/testthat/test-class-workbook-utils.R
@@ -1,3 +1,5 @@
+testsetup()
+
 test_that("waivers works with $add_worksheet()", {
   wb <- wb_workbook()
   expect_identical(wb$.__enclos_env__$private$current_sheet, 0L)

diff --git a/tests/testthat/test-class-workbook-wrappers.R b/tests/testthat/test-class-workbook-wrappers.R
@@ -1,3 +1,4 @@
+testsetup()
 
 # wb_workbook() -----------------------------------------------------------
 

diff --git a/tests/testthat/test-class-workbook.R b/tests/testthat/test-class-workbook.R
@@ -1,3 +1,6 @@
+
+testsetup()
+
 test_that("Workbook class", {
   expect_null(assert_workbook(wb_workbook()))
 })

diff --git a/tests/testthat/test-wb_styles.R b/tests/testthat/test-wb_styles.R
@@ -1,3 +1,5 @@
+testsetup()
+
 test_that("wb_clone_sheet_style", {
 
   # clone style to empty sheet (creates cells and style)