[Rcpp-commits] r4289 - in pkg/Rcpp: . inst/unitTests

[noreply at r-forge.r-project.org]

Author: edd
Date: 2013-03-21 20:29:07 +0100 (Thu, 21 Mar 2013)
New Revision: 4289

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/inst/unitTests/runit.wstring.R
Log:
replace the "?\226?\130?\172" symbol with its unicode equivalent "\u20ac" in unit test file


Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2013-03-21 12:04:53 UTC (rev 4288)
+++ pkg/Rcpp/ChangeLog	2013-03-21 19:29:07 UTC (rev 4289)
@@ -1,3 +1,8 @@
+2013-03-21  Dirk Eddelbuettel  <edd at debian.org>
+
+	* inst/unitTests/runit.wstring.R (test.as_vector_wstring): replace
+	the "€" symbol with its unicode equivalent "\u20ac"
+
 2013-03-20  Dirk Eddelbuettel  <edd at debian.org>
 
 	* inst/doc/Rcpp.bib: Updated versions for several CRAN packages

Modified: pkg/Rcpp/inst/unitTests/runit.wstring.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.wstring.R	2013-03-21 12:04:53 UTC (rev 4288)
+++ pkg/Rcpp/inst/unitTests/runit.wstring.R	2013-03-21 19:29:07 UTC (rev 4289)
@@ -28,25 +28,26 @@
 }
 
 test.CharacterVector_wstring <- function(){
-    res <- CharacterVector_wstring()  
+    res <- CharacterVector_wstring()
     print(res)
     checkEquals( res, c("foobar", "foobar" ) )
 }
 
 test.wstring_return <- function(){
-    checkEquals( wstring_return(), "foo" )    
+    checkEquals( wstring_return(), "foo" )
 }
-  
+
 test.wstring_param <- function(){
-    checkEquals( wstring_param( "foo", "bar" ), "foobar" )    
+    checkEquals( wstring_param( "foo", "bar" ), "foobar" )
 }
 
 test.wrap_vector_wstring <- function(){
-    checkEquals( wrap_vector_wstring( ), c("foo", "bar" ) )    
+    checkEquals( wrap_vector_wstring( ), c("foo", "bar" ) )
 }
 
 test.as_vector_wstring <- function(){
-    checkEquals( as_vector_wstring(letters), paste( letters, "€", sep = "" ) )
+    ## the "€" did not survive on Windows, so trying its unicode equivalent
+    checkEquals( as_vector_wstring(letters), paste0( letters, "\u20ac" ) )
 }
 
 }