test(PE_Oudin): change test when TimeStepIn = "hourly" and Julian days not ordered

Refs #134

test(PE_Oudin): change test when TimeStepIn = "hourly" and Julian days not ordered
Refs #134
ad9c01f9 · Delaigue Olivier · 15d7a542 · ad9c01f9
Commit ad9c01f9 authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 2 deletions
+1 -2
--- a/tests/testthat/test-evap.R
+++ b/tests/testthat/test-evap.R
@@ -86,9 +86,8 @@ test_that("Inconsitent time series", {
  # not ordered hourly dates
  DatesFor3Messy <- sample(BasinObs_L0123003$DatesR)
-  DatesFor3Messy <- DatesFor3Messy[-5L]
  expect_error(object = PE_Oudin(JD = as.POSIXlt(DatesFor3Messy)$yday + 1,
-                                   Temp = seq_along(BasinObs_L0123003$T)[-5L],
+                                   Temp = seq_along(BasinObs_L0123003$T),
                                   Lat = 0.8, LatUnit = "rad", TimeStepIn = "hourly"),
                 regexp = msgHoury, fixed = TRUE)