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

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

Author: romain
Date: 2010-04-15 12:55:56 +0200 (Thu, 15 Apr 2010)
New Revision: 1053

Modified:
   pkg/RcppGSL/DESCRIPTION
   pkg/RcppGSL/inst/unitTests/runit.gsl.R
Log:
using .Cpp

Modified: pkg/RcppGSL/DESCRIPTION
===================================================================
--- pkg/RcppGSL/DESCRIPTION	2010-04-15 10:55:00 UTC (rev 1052)
+++ pkg/RcppGSL/DESCRIPTION	2010-04-15 10:55:56 UTC (rev 1053)
@@ -8,6 +8,6 @@
 Description: Glue between Rcpp and the GNU GSL
 License: GPL (>=2)
 LazyLoad: yes
-Depends: Rcpp (>= 0.7.11.4)
+Depends: Rcpp (>= 0.7.11.5)
 LinkingTo: Rcpp
 SystemRequirements: GNU GSL

Modified: pkg/RcppGSL/inst/unitTests/runit.gsl.R
===================================================================
--- pkg/RcppGSL/inst/unitTests/runit.gsl.R	2010-04-15 10:55:00 UTC (rev 1052)
+++ pkg/RcppGSL/inst/unitTests/runit.gsl.R	2010-04-15 10:55:56 UTC (rev 1053)
@@ -18,7 +18,7 @@
 # along with RcppGSL.  If not, see <http://www.gnu.org/licenses/>.
 
 test.gsl.vector <- function(){
-	res <- .Call( "test_gsl_vector", PACKAGE = "RcppGSL" )
+	res <- .Cpp( "test_gsl_vector", PACKAGE = "RcppGSL" )
 	checkEquals( res, 
 		list( 
 			"gsl_vector" = numeric(10), 
@@ -48,7 +48,7 @@
 		dim( x )  <- c(5,2)
 		x
 	}
-	res <- .Call( "test_gsl_matrix", PACKAGE = "RcppGSL" )
+	res <- .Cpp( "test_gsl_matrix", PACKAGE = "RcppGSL" )
 	checkEquals( res, 
 		list( 
 			"gsl_matrix"                     = helper( numeric ), 
@@ -71,14 +71,14 @@
 }
 
 test.gsl.vector.view <- function(){
-	res <- .Call( "test_gsl_vector_view", PACKAGE = "RcppGSL" )
+	res <- .Cpp( "test_gsl_vector_view", PACKAGE = "RcppGSL" )
 	checkEquals( res, 
 		list( even = 2.0 * 0:4, odd = 2.0 * 0:4 + 1.0 ), 
 		msg = "wrap( gsl.vector.view )" )
 }
 
 test.gsl.matrix.view <- function(){
-	res <- .Call( "test_gsl_matrix_view", PACKAGE = "RcppGSL" )
+	res <- .Cpp( "test_gsl_matrix_view", PACKAGE = "RcppGSL" )
 	checkEquals( res$full[3:4, 3:4], res$view, msg = "wrap(gsl.matrix.view)" )
 }