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

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

Author: romain
Date: 2010-05-07 07:59:51 +0200 (Fri, 07 May 2010)
New Revision: 1182

Modified:
   pkg/Rcpp/inst/unitTests/runit.S4.R
Log:
copy and paste is the ennemy

Modified: pkg/Rcpp/inst/unitTests/runit.S4.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.S4.R	2010-05-06 12:30:40 UTC (rev 1181)
+++ pkg/Rcpp/inst/unitTests/runit.S4.R	2010-05-07 05:59:51 UTC (rev 1182)
@@ -127,7 +127,7 @@
 	attr( x, "foo" ) <- "bar"
 	
 	fx <- cppfunction( signature(tr="ANY"), 
-		' S4 o(tr); return CharacterVector(o.slot("foo")); '
+		' IntegerVector o(tr); return CharacterVector(o.attr("foo")); '
 	)
 	checkEquals( fx(x), "bar", "Vector( AttributeProxy ) ambiguity" )