TODO: unit tests for simil days

[talweg.git] / pkg / tests / testthat / test-similarDays.R

diff --git a/pkg/tests/testthat/test-similarDays.R b/pkg/tests/testthat/test-similarDays.R
new file mode 100644 (file)
index 0000000..0d33fce
--- /dev/null
+++ b/pkg/tests/testthat/test-similarDays.R
@@ -0,0 +1,16 @@
+context("Get similar days")
+
+itestthat("getSimilarDaysIndices works as expected",
+{
+       getSimilarDaysIndices(index, data, limit, same_season, days_in=NULL)
+       #...
+})
+{
+       index = dateIndexToInteger(index, data)
+
+testthat("getConstrainedNeighbs works as expected",
+{
+       .getConstrainedNeighbs(today, data, fdays, min_neighbs=10, max_neighbs=12)
+       #...
+})
+