tests/testthat/test_fix-cens-date.r

In renlund/dataman: Data management

test_that("'fix1censdate' works", {
    expect_equal(
        fix1censdate(x = "20110213"),
        as.Date("2011-02-13")
    )
    expect_equal(
        fix1censdate(x = "20011231"),
        as.Date("2001-12-31")
    )
    expect_equal(
        fix1censdate(x = "20120000"),
        as.Date("2012-07-01")
    )
    expect_equal(
        fix1censdate(x = "20120600"),
        as.Date("2012-06-15")
    )
    expect_equal(
        fix1censdate(x = "20120000", low.bound = as.Date("2012-01-01")),
        as.Date("2012-07-01")
    )
    expect_equal(
        fix1censdate(x = "20120000", low.bound = as.Date("2012-12-31")),
        as.Date("2012-12-31")
    )
    expect_equal(
        fix1censdate(x = "20120000", low.bound = as.Date("2012-10-03")),
        as.Date("2012-11-16")
    )
    expect_equal(
        fix1censdate(x = "20120500", low.bound = as.Date("2012-01-01")),
        as.Date("2012-05-16")
    )
    expect_equal(
        fix1censdate(x = "20120500", low.bound = as.Date("2012-05-31")),
        as.Date("2012-05-31")
    )
    expect_equal(
        fix1censdate(x = "20120500", low.bound = as.Date("2010-05-31")),
        as.Date("2012-05-31")
    )
    expect_error(fix1censdate(x = "19890000", ok.year = 1990:2010))
})

test_that("'fix_cens_date' works", {
    x <- c("20090000" , "20100800", "20120506")
    y <- as.Date(c("2009-07-02" , "2010-08-16", "2012-05-06"))
    expect_equal(fix_cens_date(x),y)
    L <- as.Date(c("2009-07-01" , "2010-08-10", "2012-05-06"))
    y <- as.Date(c("2009-10-01" , "2010-08-20", "2012-05-06"))
    expect_equal(fix_cens_date(x, low.bound = L), y)
})