Fixed test 168.2 to pass locally where it"s 20:00 PDT and Sys.Date()=…

…=2018.10.03 but as.Date(Sys.time()) is 2018.10.04. Broke due to PR Rdatatable#3091
jjpeh · Oct 4, 2018 · ead37d0 · ead37d0
1 parent 71fef80
commit ead37d0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw
@@ -462,7 +462,7 @@ datetimes = c("2011 NOV18 09:29:16", "2011 NOV18 10:42:40", "2011 NOV18 23:47:12
               "2011 NOV19 01:06:01", "2011 NOV19 11:35:34", "2011 NOV19 11:51:09")
 DT = IDateTime(strptime(datetimes,"%Y %b%d %H:%M:%S"))
 test(168.1, DT[,as.data.frame(itime)], data.frame(V1=as.ITime(x<-c("09:29:16","10:42:40","23:47:12","01:06:01","11:35:34","11:51:09"))))
-test(168.2, as.character(DT[,as.POSIXct(itime,tz="UTC")]), paste(as.Date(Sys.time()),x))
+test(168.2, as.character(DT[,as.POSIXct(itime,tz="UTC")]), paste(Sys.Date(), x))
 test(168.3, as.character(DT[,as.POSIXct(idate,tz="UTC")]), c("2011-11-18","2011-11-18","2011-11-18","2011-11-19","2011-11-19","2011-11-19"))
 
 # test of . in formula, using inheritance