update test files to new test location

IDEMSInternational · May 22, 2024 · f61fcc3 · f61fcc3
1 parent 3e27533
commit f61fcc3
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 9 deletions.
diff --git a/R/crop_success_probabilities.R b/R/crop_success_probabilities.R
@@ -49,11 +49,8 @@ crop_success_probabilities <- function(country,
                                       paste0(station_id, ".", get_summaries[[2]]))
     }
   } else {
-    print("ye")
-
     definitions <- epicsawrap::definitions(country = country, station_id = station_id, summaries = "crops_success")
-
-    print("good")
+
     # Fetch daily data and preprocess
     daily <- epicsadata::get_daily_data(country = country, station_id = station_id)
 

diff --git a/tests/testthat/test-crop_success_probabilities.R b/tests/testthat/test-crop_success_probabilities.R
@@ -3,8 +3,8 @@ library(testthat)
 # Test case 1
 epicsadata::gcs_auth_file(file = "testdata/epicsa_token.json")
 test_1_results <- readRDS("testdata/crop_success_probabilities_test_1.rds")
-country <- "zm"
-station_id <- "test_1"
+country <- "zm_test"
+station_id <- "r_data_test_1"
 
 test_that("Correct summaries are called", {
   result <- suppressWarnings(crop_success_probabilities(country, station_id))

diff --git a/tests/testthat/test-total_temperature_summaries.R b/tests/testthat/test-total_temperature_summaries.R
@@ -4,8 +4,8 @@ library(testthat)
 epicsadata::gcs_auth_file(file = "testdata/epicsa_token.json")
 test_1_annual <- readRDS("testdata/annual_temperature_summaries_test_1.rds")
 test_1_monthly <- readRDS("testdata/monthly_temperature_summaries_test_1.rds")
-country <- "zm"
-station_id <- "test_1"
+country <- "zm_test"
+station_id <- "r_data_test_1"
 
 test_that("Correct summaries are called", {
   result_annual <- suppressWarnings(annual_temperature_summaries(country, station_id, summaries = c("mean_tmin", "mean_tmax")))
@@ -28,4 +28,4 @@ test_that("Correct summaries are called", {
                                                                  summaries = c("min_tmin"),
                                                                  override = TRUE))
   expect_true(identical(names(result_annual[[2]]), c("station", "year", "min_tmin")))
-})
+})