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

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

Author: edd
Date: 2010-08-05 17:25:02 +0200 (Thu, 05 Aug 2010)
New Revision: 1917

Modified:
   pkg/Rcpp/inst/unitTests/runit.stats.R
Log:
removed extra comma -- now builds but test does not pan out (!!)


Modified: pkg/Rcpp/inst/unitTests/runit.stats.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.stats.R	2010-08-05 15:15:37 UTC (rev 1916)
+++ pkg/Rcpp/inst/unitTests/runit.stats.R	2010-08-05 15:25:02 UTC (rev 1917)
@@ -41,7 +41,7 @@
 						_["true"]  = stats::dpois( xx, .5 , true )
 						) ;
 				'
-			),
+			)
 		)
 
 		signatures <- lapply( f, "[[", 1L )
@@ -54,13 +54,15 @@
 
 test.stats.dbinom <- function( ){
 	fx <- .rcpp.stats$runit_dbinom
-	checkEquals( fx(1:10) ,
-                list( false = dbinom(1:10, 10, .5), true = dbinom(1:10, 10, .5, TRUE ) ) )
+	checkEquals(fx(1:10) ,
+                list( false = dbinom(1:10, 10, .5), true = dbinom(1:10, 10, .5, TRUE ) ),
+                msg = "stats.dbinom" )
 }
 
 test.stats.dpois <- function( ){
 	fx <- .rcpp.stats$runit_dpois
-	checkEquals( fx(0:5) ,
-                list( false = dpois(0:5, .4), true = dpois(0:5, .4, TRUE ) ) )
+	checkEquals(fx(0:5) ,
+                list( false = dpois(0:5, .4), true = dpois(0:5, .4, TRUE ) ),
+                msg = "stats.dpois" )
 }