[Rcpp-commits] r1744 - in pkg/Rcpp/inst: . unitTests

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

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

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

Modified: pkg/Rcpp/inst/ChangeLog
===================================================================
--- pkg/Rcpp/inst/ChangeLog	2010-06-25 17:09:27 UTC (rev 1743)
+++ pkg/Rcpp/inst/ChangeLog	2010-06-25 18:04:13 UTC (rev 1744)
@@ -3,7 +3,8 @@
 	* inst/include/Rcpp/posix.h: anticipate R 2.12.0 switch of classes
 	POSIXt and POSIXct
 
-	* inst/include/classic: New home for the 'classic' API headers
+	* inst/include/classic: New home for the 'classic' API headers. Some 
+	refactoring of the internals so that they use the new api.
 
 2010-06-24  Romain Francois <romain at r-enthusiasts.com>
 

Modified: pkg/Rcpp/inst/unitTests/runit.RcppDate.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.RcppDate.R	2010-06-25 17:09:27 UTC (rev 1743)
+++ pkg/Rcpp/inst/unitTests/runit.RcppDate.R	2010-06-25 18:04:13 UTC (rev 1744)
@@ -41,7 +41,7 @@
             rs.add("le",      d2 <= d1);
 	    return rs.getReturnList();';
     funx <- cppfunction(signature(), src)
-    checkEquals(funx(), list(diff=1, bigger=1, smaller=0, equal=0, ge=1, le=0), msg = "RcppDate.operators")
+    checkEquals(funx(), list(diff=1, bigger=TRUE, smaller=FALSE, equal=FALSE, ge=TRUE, le=FALSE), msg = "RcppDate.operators")
 }
 
 test.RcppDate.wrap <- function() {