test fix with override

IDEMSInternational · Jun 18, 2024 · 9632984 · 9632984
1 parent dadd6b2
commit 9632984
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/tests/testthat/test-crop_success_probabilities.R b/tests/testthat/test-crop_success_probabilities.R
@@ -3,6 +3,7 @@ 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")
+test_2_results <- readRDS("testdata/crop_success_probabilities_test_2.rds")
 country <- "zm_test"
 station_id <- "r_data_test_1"
 
@@ -13,5 +14,5 @@ test_that("Correct summaries are called", {
 
 test_that("Correct summaries are calculated", {
   result <- suppressWarnings(crop_success_probabilities(country, station_id, override = TRUE))
-  expect_true(identical(result[[2]], test_1_results))
-})
+  expect_true(identical(result[[2]], test_2_results))
+})
diff --git a/tests/testthat/testdata/crop_success_probabilities_test_2.rds b/tests/testthat/testdata/crop_success_probabilities_test_2.rds