Added tests for rounding and updatig functions on length zero input, …

…decimal_date on first second of year

inst/tests/test-decimal-date.R

@@ -12,3 +12,9 @@ test_that("decimal_date works handles vectors",{
   expect_that(round(decimal_date(x), 3), equals(c(2008.589, 2009.587)))
 
 })
+
+test_that("decimal_date handles first second of year without returning NaN",{
+
+  expect_equal(decimal_date(ymd("2012-01-01")), 2012)
+
+})

inst/tests/test-round.R

@@ -186,4 +186,22 @@ test_that("floor_date does not round down dates that are already on a boundary",
 
 test_that("round_date does not round dates that are already on a boundary",{
   expect_equal(round_date(as.Date("2012-09-27"), 'day'), as.Date("2012-09-27"))
+})
+
+test_that("ceiling_date returns input of length zero when given input of length zero",{
+  x <- structure(vector(mode = "numeric"), class = c("POSIXct", "POSIXt"))
+
+  expect_equal(ceiling_date(x), x)
+})
+
+test_that("floor_date returns input of length zero when given input of length zero",{
+  x <- structure(vector(mode = "numeric"), class = c("POSIXct", "POSIXt"))
+
+  expect_equal(floor_date(x), x)
+})
+
+test_that("round_date returns input of length zero when given input of length zero",{
+  x <- structure(vector(mode = "numeric"), class = c("POSIXct", "POSIXt"))
+
+  expect_equal(round_date(x), x)
 })

inst/tests/test-update.R

@@ -410,3 +410,15 @@ test_that("update handles gives error for non-conformable vectors of inputs",{
   expect_that(day(update(date, days = c(1,2), months = 
     c(1,2,3))), throws_error())
 })
+
+test_that("update.POSIXct returns input of length zero when given input of length zero",{
+  x <- structure(vector(mode = "numeric"), class = c("POSIXct", "POSIXt"))
+
+  expect_equal(update(x, days = 1), x)
+})
+
+test_that("update.POSIXlt returns input of length zero when given input of length zero",{
+  x <- as.POSIXlt(structure(vector(mode = "numeric"), class = c("POSIXct", "POSIXt")))
+
+  expect_equal(update(x, days = 1), x)
+})