add regression tests for SEXP return values

ricowind · Jul 14, 2013 · e8c6384 · e8c6384
1 parent 93b6396
commit e8c6384
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 1 deletion.
diff --git a/Examples/test-suite/r/Makefile.in b/Examples/test-suite/r/Makefile.in
@@ -16,7 +16,8 @@ C_TEST_CASES += \
 
 CPP_TEST_CASES += \
 	r_double_delete \
-	r_overload_array
+	r_overload_array \
+	r_sexp
 
 include $(srcdir)/../common.mk
 

diff --git a/Examples/test-suite/r/r_sexp_runme.R b/Examples/test-suite/r/r_sexp_runme.R
@@ -0,0 +1,7 @@
+source("unittest.R")
+dyn.load(paste("r_sexp", .Platform$dynlib.ext, sep=""))
+source("r_sexp.R")
+cacheMetaData(1)
+
+obj <- return_sexp(1);
+unittest(obj, 1)
diff --git a/Examples/test-suite/r_sexp.i b/Examples/test-suite/r_sexp.i
@@ -0,0 +1,10 @@
+%module r_sexp
+
+extern "C" SEXP return_sexp(SEXP x);
+
+%inline %{
+SEXP return_sexp(SEXP x) {
+  return x; //Rcpp NumericVector is automatically casted to SEXP
+}
+%}
+