X-Git-Url: https://git.auder.net/assets/rpsls.css?a=blobdiff_plain;ds=sidebyside;f=pkg%2Ftests%2Ftestthat%2Ftest.dateIndexToInteger.R;fp=pkg%2Ftests%2Ftestthat%2Ftest.dateIndexToInteger.R;h=0000000000000000000000000000000000000000;hb=e64fcae579a969d17da0c05f02a8c67a626b9102;hp=d3c014ac91c9f6d910fde5c9ff5c191213e18eeb;hpb=1c74a8eca74347b98d6cf4d0e53c02687dda7422;p=talweg.git

diff --git a/pkg/tests/testthat/test.dateIndexToInteger.R b/pkg/tests/testthat/test.dateIndexToInteger.R
deleted file mode 100644
index d3c014a..0000000
--- a/pkg/tests/testthat/test.dateIndexToInteger.R
+++ /dev/null
@@ -1,76 +0,0 @@
-context("Check that date <--> integer indexes conversions work")
-
-ts_data = system.file("testdata","ts_test.csv",package="talweg")
-exo_data = system.file("testdata","exo_test.csv",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)
-data7 <<- getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
-	working_tz="GMT", predict_at=7, limit=Inf)
-
-test_that("dateIndexToInteger",
-{
-	expect_identical( dateIndexToInteger("2007-01-01",data0),   1 )
-	expect_identical( dateIndexToInteger("2007-01-02",data0),   2 )
-	expect_identical( dateIndexToInteger("2007-02-01",data0),  32 )
-	expect_identical( dateIndexToInteger("2007-03-01",data0),  60 )
-	expect_identical( dateIndexToInteger("2007-05-31",data0), 151 )
-
-	expect_identical( dateIndexToInteger("2007-01-01",data7),   1 )
-	expect_identical( dateIndexToInteger("2007-01-02",data7),   2 )
-	expect_identical( dateIndexToInteger("2007-02-01",data7),  32 )
-	expect_identical( dateIndexToInteger("2007-03-01",data7),  60 )
-	expect_identical( dateIndexToInteger("2007-05-31",data7), 151 )
-})
-
-test_that("integerIndexToDate",
-{
-	expect_identical( integerIndexToDate(  1,data0), as.Date("2007-01-01") )
-	expect_identical( integerIndexToDate(  2,data0), as.Date("2007-01-02") )
-	expect_identical( integerIndexToDate( 32,data0), as.Date("2007-02-01") )
-	expect_identical( integerIndexToDate( 60,data0), as.Date("2007-03-01") )
-	expect_identical( integerIndexToDate(151,data0), as.Date("2007-05-31") )
-
-	expect_identical( integerIndexToDate(  1,data7), as.Date("2007-01-01") )
-	expect_identical( integerIndexToDate(  2,data7), as.Date("2007-01-02") )
-	expect_identical( integerIndexToDate( 32,data7), as.Date("2007-02-01") )
-	expect_identical( integerIndexToDate( 60,data7), as.Date("2007-03-01") )
-	expect_identical( integerIndexToDate(151,data7), as.Date("2007-05-31") )
-})
-
-test_that("dateIndexToInteger(integerIndexToDate) == Id",
-{
-	expect_identical( dateIndexToInteger(integerIndexToDate(  1,data0),data0),   1 )
-	expect_identical( dateIndexToInteger(integerIndexToDate(  1,data7),data7),   1 )
-	expect_identical( dateIndexToInteger(integerIndexToDate(  2,data0),data0),   2 )
-	expect_identical( dateIndexToInteger(integerIndexToDate(  2,data7),data7),   2 )
-	expect_identical( dateIndexToInteger(integerIndexToDate( 32,data0),data0),  32 )
-	expect_identical( dateIndexToInteger(integerIndexToDate( 32,data7),data7),  32 )
-	expect_identical( dateIndexToInteger(integerIndexToDate( 60,data0),data0),  60 )
-	expect_identical( dateIndexToInteger(integerIndexToDate( 60,data7),data7),  60 )
-	expect_identical( dateIndexToInteger(integerIndexToDate(151,data0),data0), 151 )
-	expect_identical( dateIndexToInteger(integerIndexToDate(151,data7),data7), 151 )
-})
-
-test_that("integerIndexToDate(dateIndexToInteger) == Id",
-{
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-01-01",data0),data0), as.Date("2007-01-01") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-01-01",data7),data7), as.Date("2007-01-01") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-01-02",data0),data0), as.Date("2007-01-02") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-01-02",data7),data7), as.Date("2007-01-02") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-02-01",data0),data0), as.Date("2007-02-01") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-02-01",data0),data0), as.Date("2007-02-01") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-03-01",data0),data0), as.Date("2007-03-01") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-03-01",data0),data0), as.Date("2007-03-01") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-05-31",data0),data0), as.Date("2007-05-31") )
-	expect_identical(
-		integerIndexToDate(dateIndexToInteger("2007-05-31",data0),data0), as.Date("2007-05-31") )
-})