diff --git a/inst/test-data/delete-multiple-arm/arm.csv b/inst/test-data/projects/arm-multiple-delete/arm.csv similarity index 100% rename from inst/test-data/delete-multiple-arm/arm.csv rename to inst/test-data/projects/arm-multiple-delete/arm.csv diff --git a/inst/test-data/delete-multiple-arm/event.csv b/inst/test-data/projects/arm-multiple-delete/event.csv similarity index 100% rename from inst/test-data/delete-multiple-arm/event.csv rename to inst/test-data/projects/arm-multiple-delete/event.csv diff --git a/tests/testthat/test-arm-export.R b/tests/testthat/test-arm-export.R index f618d72e..314851b2 100644 --- 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 index 9033a5ab..adcc7dbd 100644 --- 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\\."