From c2dfc2f7b38918ee0f015387e7d771a94e2c6457 Mon Sep 17 00:00:00 2001
From: Garrett <grolemund@gmail.com>
Date: Tue, 13 Nov 2012 21:44:54 -0600
Subject: [PATCH] Added tests for rounding and updatig functions on length zero
 input, decimal_date on first second of year

---
 .DS_Store                      | Bin 6148 -> 6148 bytes
 inst/tests/test-decimal-date.R |   6 ++++++
 inst/tests/test-round.R        |  18 ++++++++++++++++++
 inst/tests/test-update.R       |  12 ++++++++++++
 4 files changed, 36 insertions(+)

diff --git a/.DS_Store b/.DS_Store
index 3601b412a6724f55c857baa731ac18153b1eaa47..30ab1f60898938cb0eec893fd9bf4dd39d16345b 100644
GIT binary patch
delta 31
ncmZoMXfc@J&&abeU^g=(&tx8!gPVV{@G(zp(Amt+@s}R}qf!b{

delta 62
zcmZoMXfc@J&&azmU^g=(?_?g9gNkenISly>i3}+WdJILLIr+&+Ir&Kp3=9H5>;}X$
PHXmY<WZulq@s}R}_9hQy

diff --git a/inst/tests/test-decimal-date.R b/inst/tests/test-decimal-date.R
index 6ad2173d..b3aee429 100644
--- a/inst/tests/test-decimal-date.R
+++ b/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)
+  
+})
\ No newline at end of file
diff --git a/inst/tests/test-round.R b/inst/tests/test-round.R
index 8bfcdd63..25c02673 100644
--- a/inst/tests/test-round.R
+++ b/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)
 })
\ No newline at end of file
diff --git a/inst/tests/test-update.R b/inst/tests/test-update.R
index 2762bf03..75f93c96 100644
--- a/inst/tests/test-update.R
+++ b/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)
+})
\ No newline at end of file