Add unit tests

Author: eddelbuettel

ChangeLog

@@ -4,6 +4,9 @@
 	constructor
 	* inst/include/Rcpp/date_datetime/newDatetimeVector.h: Idem
 
+	* inst/tinytest/test_date.R: Add tests
+	* inst/tinytest/cpp/dates.cpp: Idem
+
 2025-05-06  Dirk Eddelbuettel  <[email protected]>
 
 	* DESCRIPTION (Version, Date): Roll micro version and date

inst/tinytest/cpp/dates.cpp

@@ -1,8 +1,7 @@
-// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
-//
+
 // dates.cpp: Rcpp R/C++ interface class library -- Date + Datetime tests
 //
-// Copyright (C) 2010 - 2013   Dirk Eddelbuettel and Romain Francois
+// Copyright (C) 2010 - 2025   Dirk Eddelbuettel and Romain Francois
 //
 // This file is part of Rcpp.
 //
@@ -245,4 +244,12 @@ bool has_na_dtv(const Rcpp::DatetimeVector d) {
     return Rcpp::is_true(Rcpp::any(Rcpp::is_na(d)));
 }
 
+// [[Rcpp::export]]
+Rcpp::DateVector default_ctor_datevector() {
+    return Rcpp::DateVector();
+}
 
+// [[Rcpp::export]]
+Rcpp::DatetimeVector default_ctor_datetimevector() {
+    return Rcpp::DatetimeVector();
+}

inst/tinytest/test_date.R

@@ -1,5 +1,5 @@
 
-##  Copyright (C) 2010 - 2019   Dirk Eddelbuettel and Romain Francois
+##  Copyright (C) 2010 - 2025   Dirk Eddelbuettel and Romain Francois
 ##
 ##  This file is part of Rcpp.
 ##
@@ -241,3 +241,15 @@ dvt <- Sys.time() + 0:2
 expect_true(has_na_dtv(dvt) == FALSE, info="DatetimeVector.NAtest.withoutNA")
 dvt[1] <- NA
 expect_true(has_na_dtv(dvt) == TRUE, info="DatetimeVector.NAtest.withNA")
+
+## default ctor: date
+dv <- default_ctor_datevector()
+expect_true(inherits(dv, "Date"))
+expect_equal(length(dv), 0L)
+expect_equal(dv, as.Date(double()))
+
+## default ctor: datetime
+dtv <- default_ctor_datetimevector()
+expect_true(inherits(dtv, "POSIXct"))
+expect_equal(length(dtv), 0L)
+expect_equal(dtv, as.POSIXct(double(), origin="1970-01-01"))  # origin for R < 4.3.0