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

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

Author: edd
Date: 2011-01-04 20:14:52 +0100 (Tue, 04 Jan 2011)
New Revision: 2832

Modified:
   pkg/Rcpp/DESCRIPTION
   pkg/Rcpp/inst/NEWS
   pkg/Rcpp/inst/unitTests/runit.sugar.R
Log:
unrolled r2830 and incremented version


Modified: pkg/Rcpp/DESCRIPTION
===================================================================
--- pkg/Rcpp/DESCRIPTION	2011-01-04 19:04:41 UTC (rev 2831)
+++ pkg/Rcpp/DESCRIPTION	2011-01-04 19:14:52 UTC (rev 2832)
@@ -1,6 +1,6 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 0.9.0.1
+Version: 0.9.0.2
 Date: $Date$
 Author: Dirk Eddelbuettel and Romain Francois, 
  with contributions by Douglas Bates and John Chambers

Modified: pkg/Rcpp/inst/NEWS
===================================================================
--- pkg/Rcpp/inst/NEWS	2011-01-04 19:04:41 UTC (rev 2831)
+++ pkg/Rcpp/inst/NEWS	2011-01-04 19:14:52 UTC (rev 2832)
@@ -1,11 +1,5 @@
 0.9.1   2011-..-..
 
-    o   FIXME: Known sugar int vector bug -- see next entry
-
-    o   FIXME: Castrated sugar unit tests for abs, ceil, exp and floor which
-        currently fail. That is the WRONG APPROACH but all we can do while
-        Romain is taking a break
-
     o   Removed another GNU Make-specific variable from src/Makevars in order
         to make the build more portable; this was noticed on FreeBSD
 

Modified: pkg/Rcpp/inst/unitTests/runit.sugar.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.sugar.R	2011-01-04 19:04:41 UTC (rev 2831)
+++ pkg/Rcpp/inst/unitTests/runit.sugar.R	2011-01-04 19:14:52 UTC (rev 2832)
@@ -699,7 +699,7 @@
 	fx <- .rcpp.sugar$runit_abs
 	x <- rnorm(10)
 	y <- -10:10
-	TRUE #ccheckEquals( fx(x,y) , list( abs(x), abs(y) ) )
+	checkEquals( fx(x,y) , list( abs(x), abs(y) ) )
 }
 
 test.sugar.all.one.less <- function( ){
@@ -900,21 +900,21 @@
 	fx <- .rcpp.sugar$runit_exp
 	x <- rnorm(10)
 	y <- -10:10
-	TRUE #checkEquals( fx(x,y) , list( exp(x), exp(y) ) )
+	checkEquals( fx(x,y) , list( exp(x), exp(y) ) )
 }
 
 test.sugar.floor <- function( ){
 	fx <- .rcpp.sugar$runit_floor
 	x <- rnorm(10)
 	y <- -10:10
-	TRUE #checkEquals( fx(x,y) , list( floor(x), floor(y) ) )
+	checkEquals( fx(x,y) , list( floor(x), floor(y) ) )
 }
 
 test.sugar.ceil <- function( ){
 	fx <- .rcpp.sugar$runit_ceil
 	x <- rnorm(10)
 	y <- -10:10
-	TRUE #checkEquals( fx(x,y) , list( ceiling(x), ceiling(y) ) )
+	checkEquals( fx(x,y) , list( ceiling(x), ceiling(y) ) )
 }
 
 test.sugar.pow <- function( ){