Add unit test for Vector ctor from Proxy

Author: kevinushey

ChangeLog

@@ -1,5 +1,7 @@
 2014-01-18  Kevin Ushey  <kevinushey@gmail.com>
 
+  * inst/unitTests/runit.S4.R: Add a test for ctor from slot proxy
+  * inst/unitTests/cpp/S4.cpp: Add a test for ctor from slot proxy
 	* inst/include/Rcpp/vector/Vector.h: Add missing r_cast to vector
 	ctor from proxy
 

inst/unitTests/cpp/S4.cpp

@@ -30,14 +30,14 @@ List S4_methods( RObject y ){
     res[2] = y.hasSlot("z") ;
     res[3] = y.slot("x") ;
     res[4] = y.slot("y") ;
-    return res ;        
+    return res ;
 }
 
 // [[Rcpp::export]]
 void S4_getslots( S4 y){
     y.slot( "x" ) = 10.0 ;
     y.slot( "y" ) = 20.0 ;
-}      
+}
 
 // [[Rcpp::export]]
 void S4_setslots( S4 y ){
@@ -46,12 +46,12 @@ void S4_setslots( S4 y ){
 
 // [[Rcpp::export]]
 void S4_setslots_2( S4 y){
-    y.slot( "foo" ) ;    
+    y.slot( "foo" ) ;
 }
 
 // [[Rcpp::export]]
 S4 S4_ctor( std::string cl){
-    return S4( cl );    
+    return S4( cl );
 }
 
 // [[Rcpp::export]]
@@ -67,7 +67,7 @@ bool S4_is_trackCurve(S4 tr){
 // [[Rcpp::export]]
 NumericVector S4_get_slot_x(S4 o){
     NumericVector res( o.slot("x") );
-    return res ;    
+    return res ;
 }
 
 // [[Rcpp::export]]
@@ -82,3 +82,12 @@ S4 S4_dotdata(S4 foo){
     return foo ;
 }
 
+// [[Rcpp::export]]
+std::vector<double> S4_proxycoerce(S4 x_) {
+  NumericVector x(x_.slot("data"));
+  std::vector<double> xx( x.size() );
+  for (int i=0; i < x.size(); ++i) {
+    xx[i] = x[i];
+  }
+  return xx;
+}

inst/unitTests/runit.S4.R

@@ -26,9 +26,9 @@ if (.runThisTest) {
 test.RObject.S4methods <- function(){
 	setClass("track", representation(x="numeric", y="numeric"))
 	tr <- new( "track", x = 2, y = 2 )
-	checkEquals( 
+	checkEquals(
 	    S4_methods(tr),
-		list( TRUE, TRUE, FALSE, 2.0, 2.0 ), 
+		list( TRUE, TRUE, FALSE, 2.0, 2.0 ),
 		msg = "slot management" )
 
 	S4_getslots( tr )
@@ -94,4 +94,10 @@ test.S4.dotdataslot <- function(){
 	checkEquals( as.character( foo) , "foooo" )
 }
 
+test.S4.proxycoerce <- function() {
+  setClass("Foo", list(data="integer"))
+  foo <- new("Foo", data=1:3)
+  checkEquals( S4_proxycoerce(foo), c(1, 2, 3) )
+}
+
 }