From 1f8a2a6ae35dd3bf73a24f342b9fb0cc18bdc281 Mon Sep 17 00:00:00 2001
From: lilyclements <lily@idems.international>
Date: Wed, 25 Oct 2023 14:08:16 +0100
Subject: [PATCH] temperature summaries test

---
 tests/test_1_annual.rds                       | Bin 0 -> 548 bytes
 tests/test_1_monthly.rds                      | Bin 0 -> 1441 bytes
 .../test-total_temperature_summaries.R        |  43 +++++++-----------
 3 files changed, 16 insertions(+), 27 deletions(-)
 create mode 100644 tests/test_1_annual.rds
 create mode 100644 tests/test_1_monthly.rds

diff --git a/tests/test_1_annual.rds b/tests/test_1_annual.rds
new file mode 100644
index 0000000000000000000000000000000000000000..42543404e2c76f0db9a5690d054ec685ceaeee44
GIT binary patch
literal 548
zcmV+<0^9u`iwFP!0000028~p|Z`3dp_T|SN7bq%p=3h9eCjsk~BGfJwQWrMMmpGB7
zoD<o;!c8!;R$@Rv8TuFS7j$DlObkpgFtZ{dB%}sAXScbR=;-j``1yO!?|tu+pF{{D
z9|b-A4fQYT?>^oh-yQ4imfi(=-O#H!>a{KK>NP+^6PeQ^noIq++4SyYB%u;ug99?7
z0C__yqFBK(ug_NS!+nYOSdvh#H<2v>0Z^EeDa}Dv2#OA4M!8}si`S&OdB`%(Qv8Tz
zb787qB42bM_lU#~X-RoPxRQ;Wke^#il)fDA7WsU}HQ3v-;AY8@CPFAI2;;CrLk(p3
z_5sVNz|#dbq~Zl7LVM3)Xq*$-8cs@LRaiK(gC4xm_Ey_FZ715^n>Nka^FOBj!6{rP
z<9k299G{&|w!gpnaQ5-jfAJ4qf4=kM+po#a@0Xij?=v`TQ9K>FPEAps;k~M=zf0h-
zvTX#N%CQQod9Vp*lyIzOn$J}Sc?LC{iDF(#tA5X_zcJ08ySr209z5;Pv|qJ#7r;2{
z4?D2^3*V(02Th!<^jdXQc@5$1YZVo>7-)*fcQ-a)4a2Zs&#U&W>atXelG*?SuJA2r
z<0w`_;+#o^i`4b8begZ5xdC)k>eBSpG{=dH_w~-DN{Aw(R9p<{dIh9c0jj(;(hEmg
m!0^QjM~NuP)iJdSb%Ks+8Pepk*sGO}&i?_{Vh)th1polmAP*)0

literal 0
HcmV?d00001

diff --git a/tests/test_1_monthly.rds b/tests/test_1_monthly.rds
new file mode 100644
index 0000000000000000000000000000000000000000..8c7cda9bac04c1f34982bc422b8fb5f015c51085
GIT binary patch
literal 1441
zcmV;S1z!3eiwFP!000002IW?LY*SSfe_PviD{O<o9A6tSwy{CC(S5v@;l^2C3xmZ0
z0|O%Rd~09FllHZ?Z?K^_ATCiL7!)DGz&QdWC@dlb@FN(53PBeVlo1Sy1|wjMf%pLm
z)N|i^E#2Efn1AX`e|>$ozkBYvzjN+Acae#rC>^Db!*2urq!O69mXh)kd>w{w*riLx
z=c9<Y{}=S}@>5SG5mmhW3f>#SUqfPhs~b5tAJTC3b)1jaFb9VuP7?egE6V@%;wQ}t
zu{DC*&5QVAQXQZ)B!ic0;Jq5FT9RqLOW;LG@CdF4m`a&1G>U?Uogp+f1&Q|xb4@?Y
z8ZN{-_y8}uIZ+D5*wpGXRAJ%dEaUe!`9vhg4^zppE}Kw@pu`3_LDa60NTXFatxjm<
zgKR?!OGIT`crJ*&_q0P@UM|!pI3CU=`BgflCb4n*0I_3$XdfVU4iLKr1}b**63KKV
z#+1CVsRV=(kw}tI4elV4tp5Ri3R!pSEt1m4PRQSqS^ZU}9V~UB_MfJ9L)nvcYY$%?
z4Yn<N3TD^84%YL<ryK5U1?#x7i@L`;fIi-h#0sFh32hFPHg8_|a(WAx9dd&SbAS0d
z<<h*U{ld%FQ#!7vLa}SaXO@jFC|h{t-4|*{0DblHu1!hTz_uj+_fK9~0=CTe-}+{M
z7SKy`9{<6)6lgcnGJb@TH%QwK=FV)=An)yy>p!e{2gZMXVae*YQ!uf|-RWB~8z%3U
z4FH{~6VB2*qx0JaWsnKMnoO@bw=5Z~V{nzBols89UpWMpb*pR>cdr9;hT>O_Ors%t
z&P@GpfjLmn+_nBz*9ItwS9s;8ULp;wwYhf=v1h<44qx^C%!6Q6juW6aT|xy?p*-!=
z+h+DPuq5mN;jj^kOXUW+s8;jlMUb~y{sDQ$xlQ<i!dCOPo2OgB(xdoc?N;JJ&p6lN
zt1yD~=z?iY%u%4fJA)HH4RpO?zZ9Lo4lpkpO#%lwijIBaTqSmpK!AN#I*AxKT5~tt
zTyz3v<STJ-@>$2`{oDo)Q$2}1*tZ@zuzYb3Fng4Krf~V<^G6Oq^#(=Hs_9#6Z@WK^
z+PClZkOuZd`;ZsMCj!&6k~DC3cBM_aF#(+1%!8;DIQHMj?n;{s_PcE)g1}tEXz88-
z#-ogfeQ;4q-UpDiDG5^qDpM3aA+G+f!|781wvFYU{UZY$Wmj>*N22pP?gn=Em@2{X
z>LfA&Fx!1`d(VynM-54@0<d2o={FL<s`ynYhc6GRh`08kFn#bB*uDh2npY0n2^8oF
zaK1^V8w*bGRV1A20LN2Go-$)rlLY{CLE$mOmHkp(i>l^sgvt*vS_`H@<#XTu`O&Y>
zL*;QLkE^qtB*TH(RZD~fr<#|}RCyx+BTvUc^?M}z68eqmXB`7Zmemg6BLbyBRlA(W
z+JYJMuPlmG3v$54liC#yhfgZRq_A2F4E<JLwMxsiM6Dk_zbGw>SoiUq$VxseP`x|2
zX6>b*G3aj!gw(5&PQ5A_s9x8I*m4;cajf49M7;Ljel88VFx989>$T(5enUUpglONI
zXrD2br+S(ge%Sh*q@DeNCEL_Tfj(8*5L0>E?^nIZbyVj3n~IPe^CYK6s_My5;xmHS
zAC5>zJc7tTjEEUG5-|!f8Zicui6AG?Sj0HQctkd00wO17TrMIHF%glEC_qd?Oh%Xy
zg@__VF=9&0I12)=;Z!N23{j4t5#$WEA*LcK5Ys5R!uP%q1*Db$uNtE?((6=G@(Py}
z46$AzB(Z)^B)&=~`HpN9Lg*)g5i<!=gO_zj#_RAcV#>`)T#+XjP2NFas`q~VTa!Y%
vhuyD5cmimz-G(A}&>x_BrE(vq^%39Xt;@UbJN|IXpzi$xaRFm3F%19!)Re7C

literal 0
HcmV?d00001

diff --git a/tests/testthat/test-total_temperature_summaries.R b/tests/testthat/test-total_temperature_summaries.R
index 7a8fcc1..4ce409e 100644
--- a/tests/testthat/test-total_temperature_summaries.R
+++ b/tests/testthat/test-total_temperature_summaries.R
@@ -1,27 +1,16 @@
-# library(testthat)
-# 
-# # Test case 1: Test with to = "annual"
-# result <- epicsawrap:::total_temperature_summaries(
-#   country = "zm",
-#   station_id = "23",
-#   summaries = c("mean_tmin", "mean_tmax"),
-#   to = "annual"
-# )
-# 
-# # Test case 2: Test with to = "monthly"
-# result_2 <- epicsawrap:::total_temperature_summaries(
-#   country = "zm",
-#   station_id = "1",
-#   summaries = c("mean_tmin", "mean_tmax"),
-#   to = "monthly"
-# )
-# 
-# # Define test cases
-# test_that("total_temperature_summaries returns correct results", {
-#   # Mock the necessary external functions or datasets if needed
-#   expect_length(result, 2)
-#   expect_length(result_2, 2)
-# 
-#   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_annual <- readRDS("tests/test_1_annual.rds")
+test_1_monthly <- readRDS("tests/test_1_monthly.rds")
+country <- "zm"
+station_id <- "test_1"
+result_annual <- epicsawrap::annual_temperature_summaries(country, station_id)
+result_monthly <- epicsawrap::monthly_temperature_summaries(country, station_id)
+
+test_that("Correct summaries are calculated", {
+  expect_true(identical(result_annual[[2]], test_1_annual))
+  expect_true(identical(result_monthly[[2]], test_1_monthly))
+})
\ No newline at end of file