pkg/tests/testthat/test.dateIndexToInteger.R

   1 context("Check that date <--> integer indexes conversions work")
   2
   3 ts_data = system.file("testdata","ts_test.csv",package="talweg")
   4 exo_data = system.file("testdata","exo_test.csv",package="talweg")
   5 data0 <<- getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
   6     working_tz="GMT", predict_at=0, limit=Inf)
   7 data7 <<- getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
   8     working_tz="GMT", predict_at=7, limit=Inf)
   9
  10 test_that("dateIndexToInteger",
  11 {
  12     expect_identical( dateIndexToInteger("2007-01-01",data0),   1 )
  13     expect_identical( dateIndexToInteger("2007-01-02",data0),   2 )
  14     expect_identical( dateIndexToInteger("2007-02-01",data0),  32 )
  15     expect_identical( dateIndexToInteger("2007-03-01",data0),  60 )
  16     expect_identical( dateIndexToInteger("2007-05-31",data0), 151 )
  17
  18     expect_identical( dateIndexToInteger("2007-01-01",data7),   1 )
  19     expect_identical( dateIndexToInteger("2007-01-02",data7),   2 )
  20     expect_identical( dateIndexToInteger("2007-02-01",data7),  32 )
  21     expect_identical( dateIndexToInteger("2007-03-01",data7),  60 )
  22     expect_identical( dateIndexToInteger("2007-05-31",data7), 151 )
  23 })
  24
  25 test_that("integerIndexToDate",
  26 {
  27     expect_identical( integerIndexToDate(  1,data0), as.Date("2007-01-01") )
  28     expect_identical( integerIndexToDate(  2,data0), as.Date("2007-01-02") )
  29     expect_identical( integerIndexToDate( 32,data0), as.Date("2007-02-01") )
  30     expect_identical( integerIndexToDate( 60,data0), as.Date("2007-03-01") )
  31     expect_identical( integerIndexToDate(151,data0), as.Date("2007-05-31") )
  32
  33     expect_identical( integerIndexToDate(  1,data7), as.Date("2007-01-01") )
  34     expect_identical( integerIndexToDate(  2,data7), as.Date("2007-01-02") )
  35     expect_identical( integerIndexToDate( 32,data7), as.Date("2007-02-01") )
  36     expect_identical( integerIndexToDate( 60,data7), as.Date("2007-03-01") )
  37     expect_identical( integerIndexToDate(151,data7), as.Date("2007-05-31") )
  38 })
  39
  40 test_that("dateIndexToInteger(integerIndexToDate) == Id",
  41 {
  42     expect_identical( dateIndexToInteger(integerIndexToDate(  1,data0),data0),   1 )
  43     expect_identical( dateIndexToInteger(integerIndexToDate(  1,data7),data7),   1 )
  44     expect_identical( dateIndexToInteger(integerIndexToDate(  2,data0),data0),   2 )
  45     expect_identical( dateIndexToInteger(integerIndexToDate(  2,data7),data7),   2 )
  46     expect_identical( dateIndexToInteger(integerIndexToDate( 32,data0),data0),  32 )
  47     expect_identical( dateIndexToInteger(integerIndexToDate( 32,data7),data7),  32 )
  48     expect_identical( dateIndexToInteger(integerIndexToDate( 60,data0),data0),  60 )
  49     expect_identical( dateIndexToInteger(integerIndexToDate( 60,data7),data7),  60 )
  50     expect_identical( dateIndexToInteger(integerIndexToDate(151,data0),data0), 151 )
  51     expect_identical( dateIndexToInteger(integerIndexToDate(151,data7),data7), 151 )
  52 })
  53
  54 test_that("integerIndexToDate(dateIndexToInteger) == Id",
  55 {
  56     expect_identical(
  57         integerIndexToDate(dateIndexToInteger("2007-01-01",data0),data0), as.Date("2007-01-01") )
  58     expect_identical(
  59         integerIndexToDate(dateIndexToInteger("2007-01-01",data7),data7), as.Date("2007-01-01") )
  60     expect_identical(
  61         integerIndexToDate(dateIndexToInteger("2007-01-02",data0),data0), as.Date("2007-01-02") )
  62     expect_identical(
  63         integerIndexToDate(dateIndexToInteger("2007-01-02",data7),data7), as.Date("2007-01-02") )
  64     expect_identical(
  65         integerIndexToDate(dateIndexToInteger("2007-02-01",data0),data0), as.Date("2007-02-01") )
  66     expect_identical(
  67         integerIndexToDate(dateIndexToInteger("2007-02-01",data0),data0), as.Date("2007-02-01") )
  68     expect_identical(
  69         integerIndexToDate(dateIndexToInteger("2007-03-01",data0),data0), as.Date("2007-03-01") )
  70     expect_identical(
  71         integerIndexToDate(dateIndexToInteger("2007-03-01",data0),data0), as.Date("2007-03-01") )
  72     expect_identical(
  73         integerIndexToDate(dateIndexToInteger("2007-05-31",data0),data0), as.Date("2007-05-31") )
  74     expect_identical(
  75         integerIndexToDate(dateIndexToInteger("2007-05-31",data0),data0), as.Date("2007-05-31") )
  76 })