added StretchyList unit tests

Author: romainfrancois

inst/unitTests/cpp/misc.cpp

@@ -133,3 +133,12 @@ LogicalVector na_proxy(){
         ) ;
 }      
 
+// [[Rcpp::export]]
+StretchyList stretchy_list(){
+    StretchyList out ;
+    out.push_back( 1 ) ;
+    out.push_front( "foo" ) ;
+    out.push_back( 3.2 ) ;
+    return out;
+}
+

inst/unitTests/runit.misc.R

@@ -126,4 +126,11 @@ test.na_proxy <- function(){
     )    
 }
 
+test.StretchyList <- function(){
+    checkEquals( 
+        stretchy_list(),
+        pairlist( "foo", 1L, 3.2 )
+    )
+}
+
 }