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

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

Author: romain
Date: 2010-05-12 23:00:35 +0200 (Wed, 12 May 2010)
New Revision: 1214

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

Modified: pkg/Rcpp/inst/unitTests/runit.RcppResultSet.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.RcppResultSet.R	2010-05-12 19:17:56 UTC (rev 1213)
+++ pkg/Rcpp/inst/unitTests/runit.RcppResultSet.R	2010-05-12 21:00:35 UTC (rev 1214)
@@ -115,7 +115,7 @@
      # RcppDateTime discards the timezone, so we have to set it back 
      # otherwise the comparison fails on the attributes
      attr( result, "tzone") <- "UTC" 
-     checkEquals( result, posixt, msg = "RcppResultSet.RcppDatetime")
+     checkTrue( (result - posixt) == 0.0 , msg = "RcppResultSet.RcppDatetime")
 }
 
 test.RcppResultSet.RcppDatetimeVector <- function() {
@@ -127,7 +127,7 @@
     now <- Sys.time()
     attr(now, "tzone") <- NULL # no attribute gets set at the C++ level
     v <- now + 0:9
-    checkEquals(funx(v)[[1]], v, msg = "RcppResultSet.RcppDatetimeVector")
+    checkTrue( sum( funx(v)[[1]] - v ) == 0.0 , msg = "RcppResultSet.RcppDatetimeVector")
 }
 
 test.RcppResultSet.RcppStringVector <- function() {