[Rcpp-commits] r2634 - pkg/RcppGSL/inst/unitTests

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

Author: edd
Date: 2010-11-30 23:07:33 +0100 (Tue, 30 Nov 2010)
New Revision: 2634

Modified:
   pkg/RcppGSL/inst/unitTests/runit.client.package.R
Log:
quick test


Modified: pkg/RcppGSL/inst/unitTests/runit.client.package.R
===================================================================
--- pkg/RcppGSL/inst/unitTests/runit.client.package.R	2010-11-30 21:36:24 UTC (rev 2633)
+++ pkg/RcppGSL/inst/unitTests/runit.client.package.R	2010-11-30 22:07:33 UTC (rev 2634)
@@ -38,5 +38,7 @@
 	require( pkg, "templib", character.only = TRUE )
 	m <- matrix( 1:16, nc = 4 )
 	res <- colNorm( m )
+    val <- apply(m, 2, function(x) sqrt(sum(x^2)))
 	unlink( "templib", recursive = TRUE )
+    checkEquals( res, val, msg = "colNorm in client package" )
 }