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

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

Author: romain
Date: 2013-08-01 11:09:26 +0200 (Thu, 01 Aug 2013)
New Revision: 4413

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/inst/unitTests/cpp/wstring.cpp
   pkg/Rcpp/inst/unitTests/runit.wstring.R
Log:
re enable the wstring test suite

Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2013-08-01 01:49:45 UTC (rev 4412)
+++ pkg/Rcpp/ChangeLog	2013-08-01 09:09:26 UTC (rev 4413)
@@ -1,3 +1,8 @@
+2013-08-01 Romain Francois <romain at r-enthusiasts.com>
+
+        * unitTests/cpp/wstring.cpp : re-enable the wstring test suite. 
+        * unitTests/runit.wstring.R : re-enable the wstring test suite.
+        
 2013-07-31  Dirk Eddelbuettel  <edd at debian.org>
 
 	* DESCRIPTION: Bump development version to 0.10.4.3

Modified: pkg/Rcpp/inst/unitTests/cpp/wstring.cpp
===================================================================
--- pkg/Rcpp/inst/unitTests/cpp/wstring.cpp	2013-08-01 01:49:45 UTC (rev 4412)
+++ pkg/Rcpp/inst/unitTests/cpp/wstring.cpp	2013-08-01 09:09:26 UTC (rev 4413)
@@ -19,7 +19,7 @@
 }
 
 // [[Rcpp::export]]
-String wstring_param(const std::wstring& s1, const std::wstring& s2){
+String wstring_param(std::wstring s1, std::wstring s2){
     String s = s1 ;
     s += s2 ;
     return s ;

Modified: pkg/Rcpp/inst/unitTests/runit.wstring.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.wstring.R	2013-08-01 01:49:45 UTC (rev 4412)
+++ pkg/Rcpp/inst/unitTests/runit.wstring.R	2013-08-01 09:09:26 UTC (rev 4413)
@@ -21,13 +21,12 @@
 
 .runThisTest <- Sys.getenv("RunAllRcppTests") == "yes"
 
-if (FALSE && .runThisTest) {
+if ( .runThisTest) {
 
 .setUp <- Rcpp:::unit_test_setup( "wstring.cpp" )
 
 test.CharacterVector_wstring <- function(){
     res <- CharacterVector_wstring()
-    #print(res)
     checkEquals( res, c("foobar", "foobar" ) )
 }