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

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

Author: romain
Date: 2013-09-28 08:22:57 +0200 (Sat, 28 Sep 2013)
New Revision: 4540

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/inst/unitTests/cpp/Module.cpp
Log:
new unit test, that intentionally fail for now. to be fixed

Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2013-09-28 01:45:32 UTC (rev 4539)
+++ pkg/Rcpp/ChangeLog	2013-09-28 06:22:57 UTC (rev 4540)
@@ -1,3 +1,8 @@
+2013-09-28 Romain Francois <romain at r-enthusiasts.com>
+
+        * inst/unitTests/cpp/Module.cpp: Making sure Rcp is not released before this 
+        is fixed
+    
 2013-09-27  Dirk Eddelbuettel  <edd at debian.org>
 
 	* vignettes/Rcpp-unitTests.Rnw: Re-activated vignette

Modified: pkg/Rcpp/inst/unitTests/cpp/Module.cpp
===================================================================
--- pkg/Rcpp/inst/unitTests/cpp/Module.cpp	2013-09-28 01:45:32 UTC (rev 4539)
+++ pkg/Rcpp/inst/unitTests/cpp/Module.cpp	2013-09-28 06:22:57 UTC (rev 4540)
@@ -61,6 +61,8 @@
 public:
     World() : msg("hello"){}
     void set(std::string msg_) { this->msg = msg_; }
+    void set_ref(std::string& msg_) { this->msg = msg_; }
+    void set_const_ref(const std::string& msg_) { this->msg = msg_; }
     std::string greet() { return msg; }
 
 private:
@@ -155,6 +157,8 @@
 
 		.method( "greet", &World::greet )
 		.method( "set", &World::set )
+		.method( "set_ref", &World::set_ref )
+		.method( "set_const_ref", &World::set_const_ref )
 		.method( "clear", &clearWorld )
 	;