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

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

Author: romain
Date: 2010-06-17 21:53:58 +0200 (Thu, 17 Jun 2010)
New Revision: 1580

Modified:
   pkg/Rcpp/inst/unitTests/runit.sugar.plus.R
Log:
one more test

Modified: pkg/Rcpp/inst/unitTests/runit.sugar.plus.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.sugar.plus.R	2010-06-17 19:52:57 UTC (rev 1579)
+++ pkg/Rcpp/inst/unitTests/runit.sugar.plus.R	2010-06-17 19:53:58 UTC (rev 1580)
@@ -27,7 +27,18 @@
 			) ;
 	', plugin = "Rcpp" )
 	
-	
 	checkEquals( fx(1:10) , list( 11:20,11:20)  )
 }
 
+test.sugar.plus.seqlen <- function( ){
+
+	fx <- cxxfunction( signature(), '
+		return List::create(
+			seq_len(10) + 10, 
+			10 + seq_len(10) 
+			) ;
+	', plugin = "Rcpp" )
+	
+	checkEquals( fx() , list( 11:20,11:20)  )
+}
+