moving arm & event

ref #542
OuhscBbmc · Oct 16, 2024 · 6c5ca60 · 6c5ca60
1 parent a7a9175
commit 6c5ca60
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 2 deletions.
diff --git a/inst/test-data/delete-multiple-arm/arm.csv → ...data/projects/arm-multiple-delete/arm.csv b/inst/test-data/delete-multiple-arm/arm.csv → ...data/projects/arm-multiple-delete/arm.csv
diff --git a/inst/test-data/delete-multiple-arm/event.csv → ...ta/projects/arm-multiple-delete/event.csv b/inst/test-data/delete-multiple-arm/event.csv → ...ta/projects/arm-multiple-delete/event.csv
diff --git a/tests/testthat/test-arm-export.R b/tests/testthat/test-arm-export.R
@@ -27,7 +27,7 @@ test_that("delete-multiple-arm", {
   testthat::skip_on_cran()
   credential  <- retrieve_credential_testing("arm-multiple-delete")
 
-  path_expected <- "test-data/delete-multiple-arm/arm.csv"
+  path_expected <- "test-data/projects/arm-multiple-delete/arm.csv"
   expected_data_frame <- read_arms(path_expected)
   # start_clean_result <- REDCapR:::clean_start_delete_single_arm()
 

diff --git a/tests/testthat/test-event-read.R b/tests/testthat/test-event-read.R
@@ -110,7 +110,7 @@ test_that("delete-multiple-arm", {
   testthat::skip_on_cran()
   credential  <- retrieve_credential_testing("arm-multiple-delete")
 
-  path_expected <- "test-data/delete-multiple-arm/event.csv"
+  path_expected <- "test-data/projects/arm-multiple-delete/event.csv"
   expected_data_frame <- retrieve_expected_events(path_expected)
 
   expected_outcome_message <- "The list of events was retrieved from the REDCap project in \\d+(\\.\\d+\\W|\\W)seconds\\."