context("Check that forecasters behave as expected")

test_that("Average+Zero method behave as expected",
{
	ts_data = system.file("testdata","ts",package="talweg")
	exo_data = system.file("testdata","exo",package="talweg")

	data0 = getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
		working_tz="GMT", predict_at=0, limit=Inf)
	#TODO: with and without shift at origin (so series values at least forst ones are required)

	indices = ...
	pred0 = getForecast(.......)

	for (i in seq_along(indices))
	{
		expect_identical(....)
	}

	data13 = getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
		working_tz="GMT", predict_at=13, limit=Inf)
	#Attention: jours deviennent 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 (14h-->0h puis 1h-->13h)
}

test_that("Persistence+Zero method behave as expected",
{
}

test_that("Neighbors+Zero method behave as expected",
{
}

test_that("Neighbors+Neighbors method behave as expected",
{
}