moving out the files

davidgohel · Mar 14, 2024 · d74707d · d74707d
1 parent 750617a
commit d74707d
Show file tree

Hide file tree

Showing 20 changed files with 31 additions and 16 deletions.
diff --git a/...flextable/docx-grouped-data-no-single.png → ...flextable/docx-grouped-data-no-single.png b/...flextable/docx-grouped-data-no-single.png → ...flextable/docx-grouped-data-no-single.png
diff --git a/..._snaps/as_flextable/docx-grouped-data.png → ..._tests/as_flextable/docx-grouped-data.png b/..._snaps/as_flextable/docx-grouped-data.png → ..._tests/as_flextable/docx-grouped-data.png
diff --git a/...flextable/html-grouped-data-no-single.png → ...flextable/html-grouped-data-no-single.png b/...flextable/html-grouped-data-no-single.png → ...flextable/html-grouped-data-no-single.png
diff --git a/..._snaps/as_flextable/html-grouped-data.png → ..._tests/as_flextable/html-grouped-data.png b/..._snaps/as_flextable/html-grouped-data.png → ..._tests/as_flextable/html-grouped-data.png
diff --git a/...flextable/pptx-grouped-data-no-single.png → ...flextable/pptx-grouped-data-no-single.png b/...flextable/pptx-grouped-data-no-single.png → ...flextable/pptx-grouped-data-no-single.png
diff --git a/..._snaps/as_flextable/pptx-grouped-data.png → ..._tests/as_flextable/pptx-grouped-data.png b/..._snaps/as_flextable/pptx-grouped-data.png → ..._tests/as_flextable/pptx-grouped-data.png
diff --git a/.../testthat/_snaps/borders/docx-borders.png → ...for_manual_tests/borders/docx-borders.png b/.../testthat/_snaps/borders/docx-borders.png → ...for_manual_tests/borders/docx-borders.png
diff --git a/...t/_snaps/borders/docx-complex-borders.png → ...al_tests/borders/docx-complex-borders.png b/...t/_snaps/borders/docx-complex-borders.png → ...al_tests/borders/docx-complex-borders.png
diff --git a/.../testthat/_snaps/borders/html-borders.png → ...for_manual_tests/borders/html-borders.png b/.../testthat/_snaps/borders/html-borders.png → ...for_manual_tests/borders/html-borders.png
diff --git a/...at/_snaps/borders/pdf-complex-borders.png → ...ual_tests/borders/pdf-complex-borders.png b/...at/_snaps/borders/pdf-complex-borders.png → ...ual_tests/borders/pdf-complex-borders.png
diff --git a/.../testthat/_snaps/borders/pptx-borders.png → ...for_manual_tests/borders/pptx-borders.png b/.../testthat/_snaps/borders/pptx-borders.png → ...for_manual_tests/borders/pptx-borders.png
diff --git a/...t/_snaps/borders/pptx-complex-borders.png → ...al_tests/borders/pptx-complex-borders.png b/...t/_snaps/borders/pptx-complex-borders.png → ...al_tests/borders/pptx-complex-borders.png
diff --git a/...s/md-captions/bookdown_html_document2.png → ...s/md-captions/bookdown_html_document2.png b/...s/md-captions/bookdown_html_document2.png → ...s/md-captions/bookdown_html_document2.png
diff --git a/...ps/md-captions/bookdown_pdf_document2.png → ...ts/md-captions/bookdown_pdf_document2.png b/...ps/md-captions/bookdown_pdf_document2.png → ...ts/md-captions/bookdown_pdf_document2.png
diff --git a/...s/md-captions/bookdown_word_document2.png → ...s/md-captions/bookdown_word_document2.png b/...s/md-captions/bookdown_word_document2.png → ...s/md-captions/bookdown_word_document2.png
diff --git a/...md-captions/officedown_word_document2.png → ...md-captions/officedown_word_document2.png b/...md-captions/officedown_word_document2.png → ...md-captions/officedown_word_document2.png
diff --git a/...s/md-captions/rmarkdown_html_document.png → ...s/md-captions/rmarkdown_html_document.png b/...s/md-captions/rmarkdown_html_document.png → ...s/md-captions/rmarkdown_html_document.png
diff --git a/...ps/md-captions/rmarkdown_pdf_document.png → ...ts/md-captions/rmarkdown_pdf_document.png b/...ps/md-captions/rmarkdown_pdf_document.png → ...ts/md-captions/rmarkdown_pdf_document.png
diff --git a/...s/md-captions/rmarkdown_word_document.png → ...s/md-captions/rmarkdown_word_document.png b/...s/md-captions/rmarkdown_word_document.png → ...s/md-captions/rmarkdown_word_document.png
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -1,21 +1,5 @@
 # Collection of functions and data pre-processing to help with testing
 
-# Utility function to manually test local snapshots ----------------------------
-skip_if_not_local_testing <- function(min_pandoc_version = "2", check_html = FALSE) {
-  skip_on_cran() # When doing manual testing, it should be always skipped on CRAN
-  local_edition(3, .env = parent.frame()) # Set the local_edition at 3
-  skip_if_not_installed("doconv")
-  skip_if_not(doconv::msoffice_available())
-  if (!is.null(min_pandoc_version)) { # Can be turned off with NULL
-    skip_if_not(rmarkdown::pandoc_version() >= numeric_version(min_pandoc_version))
-  }
-  if (isTRUE(check_html)) {
-    skip_if_not_installed("webshot2")
-  }
-  invisible(TRUE)
-}
-
-
 # xml related functions --------------------------------------------------------
 get_docx_xml <- function(x) {
   if (inherits(x, "flextable")) {
@@ -82,3 +66,34 @@ render_rmd <- function(file, rmd_format) {
   )
   sucess
 }
+
+# Utility function to manually test local snapshots ----------------------------
+skip_if_not_local_testing <- function(min_pandoc_version = "2", check_html = FALSE) {
+  skip_on_cran() # When doing manual testing, it should be always skipped on CRAN
+  local_edition(3, .env = parent.frame()) # Set the local_edition at 3
+  skip_if_not_installed("doconv")
+  skip_if_not(doconv::msoffice_available())
+  if (!is.null(min_pandoc_version)) { # Can be turned off with NULL
+    skip_if_not(rmarkdown::pandoc_version() >= numeric_version(min_pandoc_version))
+  }
+  if (isTRUE(check_html)) {
+    skip_if_not_installed("webshot2")
+  }
+  invisible(TRUE)
+}
+
+# Getting snapshots in the _snaps folder for local testing if conditions are met
+test_that("setting up manual testing with msoffice", {
+  skip_if_not_local_testing(check_html = TRUE)
+
+  # Folder where the snapshots are stored
+  folder_to_copy <- system.file("snapshots_for_manual_tests", package = "flextable")
+
+  # Get the path to the tests/testthat directory
+  path_to_testthat <- system.file("tests", "testthat", package = "flextable")
+
+  # Construct the path to the _snaps folder
+  path_to_snaps <- file.path(path_to_testthat, "_snaps")
+
+  file.copy(folder_to_copy, path_to_snaps, recursive = TRUE, overwrite = TRUE)
+})