added tests

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,11 @@
+2017-12-03  Dirk Eddelbuettel  <edd@debian.org>
+
+        * inst/include/Rcpp/sugar/functions/is_na.h: Correct test for NA to work
+        with new as well as old Date(time)Vectors
+
+        * inst/unitTests/cpp/dates.cpp (has_na): Added tests
+        * inst/unitTests/runit.Date.R (test.NA): Idem
+
 2017-11-30  James J Balamuta  <balamut2@illinois.edu>
 
         * src/attributes.cpp: Fixed missing Rcpp namespace in export interface

inst/unitTests/cpp/dates.cpp

@@ -234,3 +234,15 @@ Date test_gmtime(double d) {
     Date nd(tm.tm_year, tm.tm_mon + 1, tm.tm_mday);
     return nd;
 }
+
+// [[Rcpp::export]]
+bool has_na_dv(const Rcpp::DateVector d) {
+    return Rcpp::is_true(Rcpp::any(Rcpp::is_na(d)));
+}
+
+// [[Rcpp::export]]
+bool has_na_dtv(const Rcpp::DatetimeVector d) {
+    return Rcpp::is_true(Rcpp::any(Rcpp::is_na(d)));
+}
+
+

inst/unitTests/runit.Date.R

@@ -1,7 +1,7 @@
 #!/usr/bin/env r
 # -*- mode: R; tab-width: 4; -*-
 #
-# Copyright (C) 2010 - 2016   Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2017   Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -264,4 +264,16 @@ if (.runThisTest) {
         checkEquals(test_gmtime(-489024000), as.Date("1954-07-04"), msg="Date.test_gmtime.1954")
         Sys.setenv(TZ=oldTZ)
     }
+
+    test.NA <- function() {
+        dv <- Sys.Date() + 0:2
+        checkTrue(has_na_dv(dv) == FALSE, msg="DateVector.NAtest.withoutNA")
+        dv[1] <- NA
+        checkTrue(has_na_dv(dv) == TRUE, msg="DateVector.NAtest.withNA")
+
+        dvt <- Sys.time() + 0:2
+        checkTrue(has_na_dtv(dvt) == FALSE, msg="DatetimeVector.NAtest.withoutNA")
+        dvt[1] <- NA
+        checkTrue(has_na_dtv(dvt) == TRUE, msg="DatetimeVector.NAtest.withNA")
+    }
 }