added tests for named push_* in StretchyList

Author: romainfrancois

inst/include/Rcpp/api/meat/StretchyList.h

@@ -31,6 +31,19 @@ namespace Rcpp{
         return *this ;
     }
 
+    template< template <class> class StoragePolicy>
+    template< typename T>
+    StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_back__impl( const T& obj, traits::true_type ){
+        Shield<SEXP> s( wrap(obj.object) ) ;
+        SEXP tmp  = Rf_cons( s, R_NilValue );
+        Symbol tag  = obj.name ;
+        SET_TAG(tmp, tag) ;
+        SEXP self = Storage::get__() ;
+        SETCDR( CAR(self), tmp) ;
+        SETCAR( self, tmp ) ;
+        return *this ;
+    }
+
     template< template <class> class StoragePolicy>
     template< typename T>
     StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_front__impl( const T& obj, traits::false_type){
@@ -42,6 +55,19 @@ namespace Rcpp{
         return *this ;
     }
 
+    template< template <class> class StoragePolicy>
+    template< typename T>
+    StretchyList_Impl<StoragePolicy>& StretchyList_Impl<StoragePolicy>::push_front__impl( const T& obj, traits::true_type){
+        SEXP tmp ;
+        SEXP self = Storage::get__() ;
+        Shield<SEXP> s( wrap(obj.object) ) ;
+        Symbol tag = obj.name ;
+        tmp = Rf_cons(s, CDR(self) ) ;
+        SET_TAG(tmp, tag );
+        SETCDR(self, tmp) ;
+        return *this ;
+    }
+
 
 }
 

inst/unitTests/cpp/misc.cpp

@@ -142,3 +142,12 @@ StretchyList stretchy_list(){
     return out;
 }
 
+// [[Rcpp::export]]
+StretchyList named_stretchy_list(){
+    StretchyList out ;
+    out.push_back( _["b"] = 1 ) ;
+    out.push_front( _["a"] = "foo" ) ;
+    out.push_back( _["c"] = 3.2 ) ;
+    return out;
+}
+

inst/unitTests/runit.misc.R

@@ -133,4 +133,11 @@ test.StretchyList <- function(){
     )
 }
 
+test.named_StretchyList <- function(){
+    checkEquals( 
+        named_stretchy_list(),
+        pairlist( a = "foo", b = 1L, c = 3.2 )
+    )
+}
+
 }