From fd342f9ff7ff1dd141e4d7a27231cde6b15fa841 Mon Sep 17 00:00:00 2001 From: Will Beasley Date: Sat, 12 Oct 2024 17:41:24 -0500 Subject: [PATCH] update paths ref #539 --- tests/testthat/test-arm-export.R | 2 +- tests/testthat/test-event-read.R | 2 +- tests/testthat/test-read-decimal-dot.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-arm-export.R b/tests/testthat/test-arm-export.R index 226633db..f618d72e 100644 --- a/tests/testthat/test-arm-export.R +++ b/tests/testthat/test-arm-export.R @@ -93,7 +93,7 @@ test_that("Longitudinal Single Arm", { testthat::skip_on_cran() credential <- retrieve_credential_testing("arm-single-longitudinal") - path_expected <- "test-data/longitudinal-single-arm/arm.csv" + path_expected <- "test-data/projects/arm-single-longitudinal/arm.csv" expected_data_frame <- read_arms(path_expected) expected_outcome_message <- "The list of arms was retrieved from the REDCap project in \\d+(\\.\\d+\\W|\\W)seconds\\." diff --git a/tests/testthat/test-event-read.R b/tests/testthat/test-event-read.R index 3cddf960..43a75e78 100644 --- a/tests/testthat/test-event-read.R +++ b/tests/testthat/test-event-read.R @@ -30,7 +30,7 @@ test_that("Longitudinal Single Arm", { testthat::skip_on_cran() credential <- retrieve_credential_testing("arm-single-longitudinal") - path_expected <- "test-data/longitudinal-single-arm/event.csv" + path_expected <- "test-data/projects/arm-single-longitudinal/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\\." diff --git a/tests/testthat/test-read-decimal-dot.R b/tests/testthat/test-read-decimal-dot.R index 88a55940..18385e84 100644 --- a/tests/testthat/test-read-decimal-dot.R +++ b/tests/testthat/test-read-decimal-dot.R @@ -5,7 +5,7 @@ test_that("default-mismatched", { testthat::skip_on_cran() credential <- retrieve_credential_testing("decimal-comma-and-dot") - path_expected <- "test-data/decimal-comma-and-dot/redcapr-specific/default-mismatched.R" + path_expected <- "test-data/projects/decimal-comma-and-dot/redcapr-specific/default-mismatched.R" expected_outcome_message <- "\\d+ records and \\d+ columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\." returned_object <-