added a few tests for Rcpp Sugar min() and max()

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,11 @@
+2018-07-21  Dirk Eddelbuettel  <edd@debian.org>
+
+	* vignettes/Rcpp.bib: Updated other references
+	* inst/bib/Rcpp.bib: Idem
+
+	* inst/unitTests/runit.sugar.R: Additional unit tests
+	* inst/unitTests/cpp/sugar.cpp: Idem
+
 2018-07-20  Dirk Eddelbuettel  <edd@debian.org>
 
 	* inst/include/Rcpp/sugar/functions/max.h (Rcpp): Also consider case

inst/unitTests/cpp/sugar.cpp

@@ -1219,3 +1219,26 @@ CharacterMatrix mtrimws(CharacterMatrix x, const char* which = "both") {
 String strimws(String x, const char* which = "both") {
     return trimws(x, which);
 }
+
+
+// 21 Jul 2018 min/max tests for int and double
+
+// [[Rcpp::export]]
+int intmin(IntegerVector v) {
+    return min(v);
+}
+
+// [[Rcpp::export]]
+int intmax(IntegerVector v) {
+    return max(v);
+}
+
+// [[Rcpp::export]]
+double doublemin(NumericVector v) {
+    return min(v);
+}
+
+// [[Rcpp::export]]
+double doublemax(NumericVector v) {
+    return max(v);
+}

inst/unitTests/runit.sugar.R

@@ -2179,4 +2179,21 @@ if (.runThisTest) {
 
     }
 
+    ## 21 July 2018
+    ## min/max
+    test.sugar.min.max <- function() {
+        # min(empty) gives NA for integer, Inf for numeric (#844)
+        checkTrue(is.na(intmin(integer(0))),    "min(integer(0))")
+        checkEquals(doublemin(numeric(0)), Inf, "min(numeric(0))")
+
+        # max(empty_ gives NA for integer, Inf for numeric (#844)
+        checkTrue(is.na(intmax(integer(0))),     "max(integer(0))")
+        checkEquals(doublemax(numeric(0)), -Inf, "max(numeric(0))")
+
+        # 'normal' values
+        checkEquals(intmin(c(1:10)),        1L,   "min(integer(...))")
+        checkEquals(doublemin(1.0*c(1:10)), 1.0,  "min(numeric(...))")
+        checkEquals(intmax(c(1:10)),        10L,  "min(integer(...))")
+        checkEquals(doublemax(1.0*c(1:10)), 10.0, "min(numeric(...))")
+    }
 }