X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2Ftests%2Ftestthat%2Ftest.dateIndexToInteger.R;h=7f09847f93e2b0393e033b343fc453523f960ba9;hp=9786097d3385aa6579a942083be1d03a301168b8;hb=6d97bfecf7310ed6682eecce1b7aa2f8185d4742;hpb=a65907cc939a5fe419613d3ba555b1d1c1af97d3

diff --git a/pkg/tests/testthat/test.dateIndexToInteger.R b/pkg/tests/testthat/test.dateIndexToInteger.R
index 9786097..7f09847 100644
--- a/pkg/tests/testthat/test.dateIndexToInteger.R
+++ b/pkg/tests/testthat/test.dateIndexToInteger.R
@@ -1,26 +1,33 @@
 context("Check that dateIndexToInteger behaves as expected")
 
-test_that("integer index matches date in data",
+getDataTest = function(n, shift)
 {
-
-
-
-#TODO: with and without shift at origin (so series values at least forst ones are required)
-
-
 	n = 1500
 	series = list()
+	s = rep(0, 24)
+
 	for (i in seq_len(n))
 	{
-		index = (i%%3) + 1
-		level = mean(s[[index]])
-		serie = s[[index]] - level + rnorm(L,sd=0.05)
+		level = i %% 3mean(s[[index]])
+		serie = s
 		# 10 series with NAs for index 2
 		if (index == 2 && i >= 60 && i<= 90)
 			serie[sample(seq_len(L),1)] = NA
-		series[[i]] = list("level"=level,"serie"=serie) #no need for more :: si : time !!!
+		series[[i]] = list("level"=i%%3, "serie"=s, "time"=)
 	}
 	data = new("Data", data=series)
+}
 
+test_that("integer index matches date in data, predict_at == 0",
+{
+	data = getData(
 	dateIndexToInteger = function(index, data)
 })
+
+test_that("integer index matches date in data, predict_at > 0",
+{
+
+
+
+
+	####TODO: CSV as raw data in inst/extdata http://r-pkgs.had.co.nz/data.html