test_adj_next_bus_day.R
In creditr: Credit Default Swaps in R

context("Test adj_next_bus_day")

test_that("test adj_next_bus_day", {
  
  ## Friday test case
  
  date1 <- as.Date("2014-08-15")
  expect_that(adj_next_bus_day(date1), equals(as.Date("2014-08-15")))
  
  ## Saturday test case
  
  date2 <- as.Date("2014-08-16")
  expect_that(adj_next_bus_day(date2), equals(as.Date("2014-08-18")))
  
  ## Sunday test case
  
  date3 <- as.Date("2014-08-17")
  expect_that(adj_next_bus_day(date3), equals(as.Date("2014-08-18")))
  
  ## Monday test case
  
  date4 <- as.Date("2014-08-18")
  expect_that(adj_next_bus_day(date4), equals(as.Date("2014-08-18")))
})