more generic StringProxy::operator== so that it works cross policies.

Author: romainfrancois

inst/include/Rcpp/vector/string_proxy.h

@@ -194,10 +194,13 @@ namespace internal{
 			return strcmp( begin(), other ) != 0 ;
 		}
 
-		bool operator==( const string_proxy& other) const {
+		template<template <class> class SP>
+		bool operator==( const string_proxy<STRSXP, SP>& other) const {
 			return strcmp( begin(), other.begin() ) == 0 ;
 		}
-		bool operator!=( const string_proxy& other) const {
+
+		template<template <class> class SP>
+		bool operator!=( const string_proxy<STRSXP,SP>& other) const {
 			return strcmp( begin(), other.begin() ) != 0 ;
 		}
 

inst/unitTests/cpp/Vector.cpp

@@ -877,3 +877,12 @@ bool CharacterVector_test_equality(CharacterVector x, CharacterVector y) {
 
     return std::equal(x.begin(), x.end(), y.begin());
 }
+
+// [[Rcpp::export]]
+bool CharacterVector_test_equality_crosspolicy(CharacterVector x, Vector<STRSXP,NoProtectStorage> y) {
+    if (x.length() != y.length()) {
+        return false;
+    }
+
+    return std::equal(x.begin(), x.end(), y.begin());
+}

inst/unitTests/runit.Vector.R

@@ -774,6 +774,7 @@ if (.runThisTest) {
     }
 
     test.CharacterVector_test_equality <- function(){
-       checkTrue( !CharacterVector_test_equality("foo", "bar") )
+        checkTrue( !CharacterVector_test_equality("foo", "bar") )
+        checkTrue( !CharacterVector_test_equality_crosspolicy("foo", "bar") )
     }
 }