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

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

Author: romain
Date: 2010-05-12 23:06:45 +0200 (Wed, 12 May 2010)
New Revision: 1215

Modified:
   pkg/Rcpp/inst/unitTests/runit.RcppParams.R
Log:
update tests to anticipate R 2.12.0

Modified: pkg/Rcpp/inst/unitTests/runit.RcppParams.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.RcppParams.R	2010-05-12 21:00:35 UTC (rev 1214)
+++ pkg/Rcpp/inst/unitTests/runit.RcppParams.R	2010-05-12 21:06:45 UTC (rev 1215)
@@ -63,6 +63,7 @@
     funx <- cppfunction(signature(x = "ANY"), src)
     posixt <- as.POSIXct(strptime("2000-01-02 03:04:05.678", "%Y-%m-%d %H:%M:%OS"))
     attr(posixt, "tzone") <- NULL    ## because we don't set a tzone attribute in C++
-    checkEquals(funx(list(val=posixt))[[1]], posixt, msg = "RcppParams.getDatetimeValue")
+    result <- funx(list(val=posixt))[[1]]
+    checkTrue( (result-posixt) == 0.0 , msg = "RcppParams.getDatetimeValue")
 }