abandon useless test

Author: romainfrancois

inst/include/Rcpp/internal/wrap.h

@@ -921,10 +921,7 @@ inline SEXP module_wrap<SEXP>( const SEXP& obj ){
 }
 
 inline SEXP wrap(const char* const v ){ 
-	if (v != NULL)
-		return Rf_mkString(v) ;
-	else 	
-		return R_NilValue;
+	return Rf_mkString(v) ;
 }
 
 /**

inst/unitTests/cpp/wrap.cpp

@@ -136,12 +136,6 @@ List multimap_string_generic(){
     return wrap(m);
 }
 
-// [[Rcpp::export]]
-SEXP null_const_char(){ 
-    const char *p = NULL; 
-    return wrap(p); 
-}
-
 // [[Rcpp::export]]
 SEXP nonnull_const_char(){ 
     const char *p = "foo"; 

inst/unitTests/runit.wrap.R

@@ -95,12 +95,6 @@ test.wrap.multimap.string.generic <- function(){
 		msg = "wrap( multimap<string,vector<int>>) " )
 }
 
-test.null.const.char <- function() {
-    checkEquals(null_const_char(),
-                NULL,
-                msg = "null const char*")
-}
-
 test.nonnull.const.char <- function() {
     checkEquals(nonnull_const_char(),
                 "foo",