[Rcpp-commits] r1846 - pkg/Rcpp/inst/unitTests

[noreply at r-forge.r-project.org]

Author: edd
Date: 2010-07-09 12:49:56 +0200 (Fri, 09 Jul 2010)
New Revision: 1846

Modified:
   pkg/Rcpp/inst/unitTests/runit.RcppDate.R
Log:
disable RcppDatetime test on double init as TZ gets in the way on windows
also turn 'sort' example in Function test to increasing


Modified: pkg/Rcpp/inst/unitTests/runit.RcppDate.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.RcppDate.R	2010-07-09 09:15:45 UTC (rev 1845)
+++ pkg/Rcpp/inst/unitTests/runit.RcppDate.R	2010-07-09 10:49:56 UTC (rev 1846)
@@ -110,13 +110,13 @@
     checkEquals(fun(), as.Date("1999-12-31"), msg = "RcppDate.wrap")
 }
 
-test.RcppDatetime.get.functions <- function() {
-    fun <- .rcpp.RcppDate$RcppDatetime_functions
-    ## checkEquals(fun(as.POSIXct("2001-02-03 01:02:03.123456", tz="UTC")),
-    checkEquals(fun(981162123.123456),
-                list(year=2001, month=2, day=3, wday=6, hour=1, minute=2, second=3, microsec=123456),
-                msg = "RcppDate.get.functions")
-}
+#test.RcppDatetime.get.functions <- function() {
+#    fun <- .rcpp.RcppDate$RcppDatetime_functions
+#    checkEquals(#fun(as.numeric(as.POSIXct("2001-02-03 01:02:03.123456", tz="UTC"))),
+#                fun(981162123.123456),
+#                list(year=2001, month=2, day=3, wday=6, hour=1, minute=2, second=3, microsec=123456),
+#                msg = "RcppDate.get.functions")
+#}
 
 test.RcppDatetime.operators <- function() {
     fun <- .rcpp.RcppDate$RcppDatetime_operators