From 71a0decdf2f44c950e086194e7939b67b85868b4 Mon Sep 17 00:00:00 2001
From: lilyclements <lily@idems.international>
Date: Wed, 25 Oct 2023 15:21:50 +0100
Subject: [PATCH] season_start_probabilities test

---
 tests/test_1_season_start_probabilities.rds   | Bin 0 -> 210 bytes
 .../test-season_start_probabilities.R         |  32 +++++++-----------
 2 files changed, 12 insertions(+), 20 deletions(-)
 create mode 100644 tests/test_1_season_start_probabilities.rds

diff --git a/tests/test_1_season_start_probabilities.rds b/tests/test_1_season_start_probabilities.rds
new file mode 100644
index 0000000000000000000000000000000000000000..5333e0ede3b1d47b85a8d4b773f782425ec0dda4
GIT binary patch
literal 210
zcmV;@04@I?iwFP!0000028-ZgU|?WoU||H3tUx9Mn{$Ank*N`oD-7hZ0BK$z%?QCP
zOkkRYffJ-MC$%g!rx?f*Ko)gOPfSTIMpMh0oRe6Lp)@Tqxg@^`$odDwd{Ap(04v}A
z=1dTn1u>rKKh#8Kn29AxIq@lJP#!ao2W4`lB$g!Vr4=RSrlPrwvnan@FApdVavjL4
zObtNdKM<gM0j5X*94-(+p5l_klFa<Pc#tGate_~rAioGKYycJGLlQGI#U^TOU;qjT
M00$kGevknG0F#DKOaK4?

literal 0
HcmV?d00001

diff --git a/tests/testthat/test-season_start_probabilities.R b/tests/testthat/test-season_start_probabilities.R
index 5f22718..f9acd20 100644
--- a/tests/testthat/test-season_start_probabilities.R
+++ b/tests/testthat/test-season_start_probabilities.R
@@ -1,20 +1,12 @@
-# library(testthat)
-# 
-# # External functions call
-# # Test case 1: Test with all parameters
-# result <-
-#   season_start_probabilities(
-#     country = "zm",
-#     station_id = "16",
-#     start_dates = c(10, 20, 100)
-#   )
-# 
-# # Test case 2: Test with missing parameters
-# result_2 <-
-#   season_start_probabilities(country = "zm", station_id = "16")
-# 
-# # Define test cases
-# test_that("season_start_probabilities returns correct results", {
-#   expect_no_error(result)
-#   expect_no_error(result_2)
-# })
\ No newline at end of file
+library(testthat)
+library(rpicsa)
+
+# Test case 1
+epicsawrap::gcs_auth_file(file = "tests/e-picsa-e630400792e7.json")
+test_1_results <- readRDS("tests/test_1_season_start_probabilities.rds")
+country <- "zm"
+station_id <- "test_1"
+result <- epicsawrap::season_start_probabilities(country, station_id, c(0, 150, 300))
+test_that("Correct summaries are calculated", {
+  expect_true(identical(result[[2]], test_1_results))
+})
\ No newline at end of file