Improve documentation
[talweg.git] / 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 })