[Rcpp-devel] [Rcpp-commits] r348 - pkg/inst/unitTests

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

Author: romain
Date: 2010-01-11 22:29:24 +0100 (Mon, 11 Jan 2010)
New Revision: 348

Modified:
   pkg/inst/unitTests/runit.CharacterVector.R
Log:
test both forms of operator+=

Modified: pkg/inst/unitTests/runit.CharacterVector.R
===================================================================
--- pkg/inst/unitTests/runit.CharacterVector.R	2010-01-11 21:24:09 UTC (rev 347)
+++ pkg/inst/unitTests/runit.CharacterVector.R	2010-01-11 21:29:24 UTC (rev 348)
@@ -59,11 +59,10 @@
 	x[0] = "foo" ; 
 	x[1] = "bar" ;
 	x[0] += "bar" ;
-	x[1] += "foo" ;
+	x[1] += x[0] ;
 	return x ;
 	', Rcpp=TRUE, verbose=FALSE, includes = "using namespace Rcpp;" )
-	checkEquals( funx(), c("foobar", "barfoo"), 
+	checkEquals( funx(), c("foobar", "barfoobar"), 
 		msg = "StringProxy::operator+=" )
-	
 }
 

_______________________________________________
Rcpp-commits mailing list
Rcpp-commits at lists.r-forge.r-project.org
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-commits