Revert "remove pkg test which no longer passes in testthat 0.10.0"

This reverts commit f5f99cb.

Author: jjallaire

tests/testthat/pkg/RcppParallelTest/DESCRIPTION

@@ -0,0 +1,12 @@
+Package: RcppParallelTest
+Type: Package
+Title: What the Package Does (Title Case)
+Version: 0.1
+Date: 2015-03-09
+Author: Who wrote it
+Maintainer: Who to complain to <yourfault@somewhere.net>
+Description: More about what it does (maybe more than one line)
+License: GPL-2
+LazyData: TRUE
+Imports: Rcpp, RcppParallel
+LinkingTo: Rcpp, RcppParallel

tests/testthat/pkg/RcppParallelTest/NAMESPACE

@@ -0,0 +1,4 @@
+exportPattern("^[[:alpha:]]+")
+importFrom(Rcpp, evalCpp)
+importFrom(RcppParallel, RcppParallelLibs)
+useDynLib(RcppParallelTest)

tests/testthat/pkg/RcppParallelTest/R/RcppExports.R

@@ -0,0 +1,7 @@
+# This file was generated by Rcpp::compileAttributes
+# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
+
+parallelVectorSum <- function(x) {
+    .Call('RcppParallelTest_parallelVectorSum', PACKAGE = 'RcppParallelTest', x)
+}
+

tests/testthat/pkg/RcppParallelTest/man/parallelVectorSum.Rd

@@ -0,0 +1,23 @@
+\name{parallelVectorSum}
+\alias{parallelVectorSum}
+\title{Parallel Vector Sum}
+\description{
+Parallel Vector Sum
+}
+\usage{
+parallelVectorSum(x)
+}
+\arguments{
+  \item{x}{Vector}
+}
+
+\value{
+Sum of Vector
+}
+
+\examples{
+library(RcppParallelTest)
+parallelVectorSum(c(1:100))
+}
+
+

tests/testthat/pkg/RcppParallelTest/src/.gitignore

@@ -0,0 +1,3 @@
+*.o
+*.so
+*.dll

tests/testthat/pkg/RcppParallelTest/src/Makevars

@@ -0,0 +1 @@
+PKG_LIBS += $(shell ${R_HOME}/bin/Rscript -e "RcppParallel::RcppParallelLibs()")

tests/testthat/pkg/RcppParallelTest/src/Makevars.win

@@ -0,0 +1,4 @@
+PKG_CXXFLAGS += -DRCPP_PARALLEL_USE_TBB=1
+
+PKG_LIBS += $(shell "${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe" \
+              -e "RcppParallel::RcppParallelLibs()")

tests/testthat/pkg/RcppParallelTest/src/RcppExports.cpp

@@ -0,0 +1,22 @@
+// This file was generated by Rcpp::compileAttributes
+// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
+
+#include <Rcpp.h>
+
+using namespace Rcpp;
+
+// parallelVectorSum
+double parallelVectorSum(NumericVector x);
+RcppExport SEXP RcppParallelTest_parallelVectorSum(SEXP xSEXP) {
+BEGIN_RCPP
+    SEXP __sexp_result;
+    {
+        Rcpp::RNGScope __rngScope;
+        Rcpp::traits::input_parameter< NumericVector >::type x(xSEXP );
+        double __result = parallelVectorSum(x);
+        PROTECT(__sexp_result = Rcpp::wrap(__result));
+    }
+    UNPROTECT(1);
+    return __sexp_result;
+END_RCPP
+}

tests/testthat/pkg/RcppParallelTest/src/test.cpp

@@ -0,0 +1,62 @@
+#include <Rcpp.h>
+using namespace Rcpp;
+
+// [[Rcpp::depends(RcppParallel)]]
+#include <RcppParallel.h>
+using namespace RcppParallel;
+
+struct Sum : public Worker
+{   
+   // source vector
+   const RVector<int> input;
+
+   // accumulated value
+   int value;
+
+   // constructors
+   Sum(const IntegerVector input) : input(input), value(0) {}
+   Sum(const Sum& sum, Split) : input(sum.input), value(0) {}
+
+   // accumulate just the element of the range I've been asked to
+   void operator()(std::size_t begin, std::size_t end) {
+      value += std::accumulate(input.begin() + begin, input.begin() + end, 0);
+   }
+
+   // join my value with that of another Sum
+   void join(const Sum& rhs) { 
+      value += rhs.value; 
+   }
+};
+
+// [[Rcpp::export]]
+double parallelVectorSum(IntegerVector x) {
+
+   // declare the SumBody instance 
+   Sum sum(x);
+
+   // call parallel_reduce to start the work
+   parallelReduce(0, x.length(), sum);
+
+   // return the computed sum
+   return sum.value;
+}
+
+// [[Rcpp::export]]
+void testMalloc() {
+   
+#if RCPP_PARALLEL_USE_TBB
+   
+   std::vector<int,tbb::tbb_allocator<int> > vec;
+   vec.push_back(42);
+   
+   std::vector<int,tbb::scalable_allocator<int> > scalableVec;
+   scalableVec.push_back(42);
+   
+   std::vector<int,tbb::cache_aligned_allocator<int> > cacheAlignedVec;
+   cacheAlignedVec.push_back(42);
+   
+#endif 
+   
+}
+
+

tests/testthat/test-pkg.R

@@ -0,0 +1,24 @@
+context( "package" )
+
+test_that( "linking from a package works", {
+   
+   templib <- tempfile()
+   dir.create(templib)
+   
+   oldWd <- getwd()
+   on.exit(setwd(oldWd), add = TRUE)
+   setwd("pkg")
+   system(paste("R CMD INSTALL --preclean --no-multiarch ",
+                "--library=", shQuote(templib), " ",
+                "RcppParallelTest", sep = ""),
+          intern = TRUE, ignore.stderr = TRUE)
+   require(RcppParallelTest, lib.loc = templib, quietly = TRUE)
+   
+   v <- c(1:1000)
+
+   expect_equal( 
+      sum(v), 
+      parallelVectorSum(v)
+   )      
+})
+