Bugfix/expressionvector test (#567)

* expression vector test correction

as discussed in #566, with thanks to Nathan Russell

* brown bag fix

* and another one

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,8 @@
+2016-10-23  Nathan Russell  <[email protected]>
+
+        * inst/unitTests/runit.dispatch.R (test.ExpressionVector): Use
+        expression rather than parse, correct typo
+
 2016-10-21  Qiang Kou  <[email protected]>
 
         * inst/include/Rcpp/barrier.h: Change string_elt/vector_elt to accept R_xlen_t

inst/NEWS.Rd

@@ -16,6 +16,10 @@
       \code{rowMeans()}, \code{colMeans()} (PR \ghpr{551} by Nathan Russell 
       fixing \ghit{549})
     }
+    \item Changes in Rcpp unit tests
+    \itemize{
+      \item A test for expression vectors was corrected.
+    }
     \item Updated Date and Datetime vector classes:
     \itemize{
       \item The \code{DateVector} and \code{DatetimeVector} classes were renamed

inst/unitTests/runit.dispatch.R

@@ -1,7 +1,8 @@
 #!/usr/bin/env r
 # -*- mode: R; tab-width: 4; -*-
 #
-# Copyright (C) 2009 - 2014  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2009 - 2016  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2016         Dirk Eddelbuettel, Romain Francois and Nathan Russell
 #
 # This file is part of Rcpp.
 #
@@ -44,8 +45,8 @@ if (.runThisTest) {
     }
 
     test.ExpressionVector <- function() {
-        x <- parse(text = "rnrom; rnrom(10); mean(1:10)")
-        checkEquals(first_el(x), x[1], msg = "RCPP_RETURN_VECTOR (numeric)")
+        x <- expression(rnorm, rnorm(10), mean(1:10))
+        checkEquals(first_el(x), x[1], msg = "RCPP_RETURN_VECTOR (expression)")
     }
 
     test.GenericVector <- function() {