From d1094d010a1b4ffa6dc1ccc5009bf13d78e54d2b Mon Sep 17 00:00:00 2001
From: Will Beasley <wibeasley@hotmail.com>
Date: Sat, 12 Oct 2024 20:29:05 -0500
Subject: [PATCH] update paths

ref #539
---
 inst/misc/project-redirection.yml        | 2 +-
 tests/testthat/test-read-decimal-comma.R | 8 ++++----
 tests/testthat/test-read-decimal-dot.R   | 4 ++--
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/inst/misc/project-redirection.yml b/inst/misc/project-redirection.yml
index 1f4d76bb..7acf4c22 100644
--- a/inst/misc/project-redirection.yml
+++ b/inst/misc/project-redirection.yml
@@ -62,6 +62,6 @@
     - decimal-comma: 57
     - decimal-dot: 58
     - validation-types-1: 59
-    - blank-for-gray-status: 0
+    - blank-for-gray-status: 60
     - checkboxes-1: 0
     - vignette-repeating: 0
diff --git a/tests/testthat/test-read-decimal-comma.R b/tests/testthat/test-read-decimal-comma.R
index e6ca6547..6aa3ba01 100644
--- a/tests/testthat/test-read-decimal-comma.R
+++ b/tests/testthat/test-read-decimal-comma.R
@@ -7,7 +7,7 @@ test_that("locale-dot-oneshot", {
   testthat::skip_on_cran()
   locale      <- readr::locale(decimal_mark = ".")
 
-  path_expected <- "test-data/decimal-dot/redcapr-specific/set-locale.R"
+  path_expected <- "test-data/projects/decimal-dot/redcapr-specific/set-locale.R"
   expected_outcome_message <- "\\d+ records and \\d+ columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
 
   returned_object <-
@@ -36,7 +36,7 @@ test_that("locale-dot-batch", {
   testthat::skip_on_cran()
   locale      <- readr::locale(decimal_mark = ".")
 
-  path_expected <- "test-data/decimal-dot/redcapr-specific/set-locale.R"
+  path_expected <- "test-data/projects/decimal-dot/redcapr-specific/set-locale.R"
   expected_outcome_message <- "\\d+ records and \\d+ columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
 
   returned_object <-
@@ -63,7 +63,7 @@ test_that("locale-dot-batch", {
 test_that("default-oneshot", {
   testthat::skip_on_cran()
 
-  path_expected <- "test-data/decimal-dot/redcapr-specific/set-locale.R"
+  path_expected <- "test-data/projects/decimal-dot/redcapr-specific/set-locale.R"
   expected_outcome_message <- "\\d+ records and \\d+ columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
 
   returned_object <-
@@ -90,7 +90,7 @@ test_that("default-oneshot", {
 test_that("default-batch", {
   testthat::skip_on_cran()
 
-  path_expected <- "test-data/decimal-dot/redcapr-specific/set-locale.R"
+  path_expected <- "test-data/projects/decimal-dot/redcapr-specific/set-locale.R"
   expected_outcome_message <- "\\d+ records and \\d+ columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
 
   returned_object <-
diff --git a/tests/testthat/test-read-decimal-dot.R b/tests/testthat/test-read-decimal-dot.R
index 18385e84..2e7650d9 100644
--- a/tests/testthat/test-read-decimal-dot.R
+++ b/tests/testthat/test-read-decimal-dot.R
@@ -34,7 +34,7 @@ test_that("locale-comma-oneshot", {
   credential  <- retrieve_credential_testing("decimal-comma")
   locale      <- readr::locale(decimal_mark = ",")
 
-  path_expected <- "test-data/decimal-comma/redcapr-specific/set-locale.R"
+  path_expected <- "test-data/projects/decimal-comma/redcapr-specific/set-locale.R"
   expected_outcome_message <- "\\d+ records and \\d+ columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
 
   returned_object <-
@@ -64,7 +64,7 @@ test_that("locale-comma-batch", {
   credential  <- retrieve_credential_testing("decimal-comma")
   locale      <- readr::locale(decimal_mark = ",")
 
-  path_expected <- "test-data/decimal-comma/redcapr-specific/set-locale.R"
+  path_expected <- "test-data/projects/decimal-comma/redcapr-specific/set-locale.R"
   expected_outcome_message <- "\\d+ records and \\d+ columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
 
   returned_object <-