findRecalSeries: add a parametrized test for the find_final_series() function

[KristinaGomoryova]

Currently only the test for the mode = TRUE is implemented, we need also a parametrized test for mode = FALSE.

Corresponding lines of code:

Actual test:

test_that("Positive final series work", {
  df <- readRDS("test-data/scores_df_full.rds")
  expected <- readRDS("test-data/final_seriesTRUE.rds")
  actual <- find_final_series(df, 3, TRUE)
  expect_equal(actual, expected)
})

Needed test:

patrick::with_parameters_test_that("Selection of the final series works",
  {
    df <- readRDS("test-data/scores_df_full.rds")
    expected <- readRDS(file.path("test-data", paste0("final_series", mode, ".rds")))
    n <- 3

    actual <- find_final_series(df, n, mode)
    if (mode == TRUE) {
      expect_equal(nrow(actual), 10)
   } else {
      expect_true(nrow(actual), n)
  }
  expect_equal(actual, expected)
  },
  mode = c(TRUE, FALSE)
)