advance on tests

[talweg.git] / pkg / tests / testthat / test.dateIndexToInteger.R

diff --git a/pkg/tests/testthat/test.dateIndexToInteger.R b/pkg/tests/testthat/test.dateIndexToInteger.R
index 9786097..7f09847 100644 (file)
--- 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