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

Refs #134

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)