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

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

Author: romain
Date: 2010-01-26 11:05:30 +0100 (Tue, 26 Jan 2010)
New Revision: 461

Modified:
   pkg/inst/unitTests/runit.IntegerVector.R
Log:
moving things around in one unnit test

Modified: pkg/inst/unitTests/runit.IntegerVector.R
===================================================================
--- pkg/inst/unitTests/runit.IntegerVector.R	2010-01-26 09:41:59 UTC (rev 460)
+++ pkg/inst/unitTests/runit.IntegerVector.R	2010-01-26 10:05:30 UTC (rev 461)
@@ -66,9 +66,6 @@
 	x <- matrix( 1:16, ncol = 4 )
 	checkEquals( funx(x), sum(diag(x)), msg = "matrix indexing" )
 	
-	y <- as.vector( x )
-	checkException( funx(y) , msg = "not a matrix" )
-	
 	funx <- cfunction(signature(x = "integer" ), '
 		IntegerVector m(x) ;
 		for( size_t i=0 ; i<4; i++){
@@ -78,5 +75,10 @@
 	', Rcpp = TRUE, includes = "using namespace Rcpp;"  )
 	checkEquals( diag(funx(x)), 2*0:3, msg = "matrix indexing lhs" )
 	
+	
+	y <- as.vector( x )
+	checkException( funx(y) , msg = "not a matrix" )
+	
+	
 }