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

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

Author: edd
Date: 2010-07-08 18:27:05 +0200 (Thu, 08 Jul 2010)
New Revision: 1843

Modified:
   pkg/Rcpp/inst/unitTests/runit.RcppDate.R
Log:
start with numeric time representation


Modified: pkg/Rcpp/inst/unitTests/runit.RcppDate.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.RcppDate.R	2010-07-08 15:32:51 UTC (rev 1842)
+++ pkg/Rcpp/inst/unitTests/runit.RcppDate.R	2010-07-08 16:27:05 UTC (rev 1843)
@@ -112,7 +112,8 @@
 
 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(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")
 }