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

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

Author: romain
Date: 2010-06-25 20:05:04 +0200 (Fri, 25 Jun 2010)
New Revision: 1745

Modified:
   pkg/Rcpp/inst/unitTests/runit.RcppDatetime.R
Log:
bool -> logical

Modified: pkg/Rcpp/inst/unitTests/runit.RcppDatetime.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.RcppDatetime.R	2010-06-25 18:04:13 UTC (rev 1744)
+++ pkg/Rcpp/inst/unitTests/runit.RcppDatetime.R	2010-06-25 18:05:04 UTC (rev 1745)
@@ -49,7 +49,7 @@
    	     return rs.getReturnList();';
      funx <- cppfunction(signature(x="numeric"), src)
      checkEquals(funx(as.numeric(as.POSIXct("2001-02-03 01:02:03.123456"))),
-                      list(diff=3600, bigger=1, smaller=0, equal=0, ge=1, le=0), msg = "RcppDatetime.operators")
+                      list(diff=3600, bigger=TRUE, smaller=FALSE, equal=FALSE, ge=TRUE, le=FALSE), msg = "RcppDatetime.operators")
 }
 
 test.RcppDatetime.wrap <- function() {