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

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

Author: edd
Date: 2010-01-25 13:21:33 +0100 (Mon, 25 Jan 2010)
New Revision: 451

Modified:
   pkg/inst/unitTests/runit.RcppResultSet.R
Log:
pass the numeric down to RcppDatetime


Modified: pkg/inst/unitTests/runit.RcppResultSet.R
===================================================================
--- pkg/inst/unitTests/runit.RcppResultSet.R	2010-01-25 12:10:16 UTC (rev 450)
+++ pkg/inst/unitTests/runit.RcppResultSet.R	2010-01-25 12:21:33 UTC (rev 451)
@@ -115,7 +115,7 @@
     funx <- cfunction(signature(x="ANY"), src, Rcpp=TRUE)
     posixt <- as.POSIXct(strptime("2000-01-01 01:02:03.456", "%Y-%m-%d %H:%M:%OS"))
     attr(posixt, "tzone") <- NULL  # no attribute gets set at the C++ level
-    checkEquals(funx(posixt)[[1]], posixt, msg = "RcppResultSet.RcppDatetime")
+    checkEquals(funx(as.numeric(posixt))[[1]], posixt, msg = "RcppResultSet.RcppDatetime")
 }
 
 test.RcppResultSet.RcppDatetimeVector <- function() {