+
+test_that("computed integer index is correct; predict_at > 0",
+{
+ data7 = getData(ts_data="pm10_mesures_H_loc.csv", exo_data="meteo_extra_noNAs.csv",
+ input_tz="Europe/Paris",working_tz="Europe/Paris", predict_at=7, limit=200)
+ expect_identical( dateIndexToInteger("2008-12-10",data), 2 )
+ expect_identical( dateIndexToInteger("2008-12-11",data), 3 )
+ expect_identical( dateIndexToInteger("2008-12-20",data), 12 )
+ expect_identical( dateIndexToInteger("2009-02-01",data), 54 )
+ expect_identical( dateIndexToInteger("2009-03-01",data), 82 )
+ expect_identical( dateIndexToInteger("2009-05-31",data), 173 )
+}