test for overall findRecalSeries function

RECETOX · Sep 13, 2024 · fc5f176 · fc5f176
1 parent b5ce0bf
commit fc5f176
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-data/findRecalSeriesFALSE.rds b/tests/testthat/test-data/findRecalSeriesFALSE.rds
diff --git a/tests/testthat/test-data/findRecalSeriesTRUE.rds b/tests/testthat/test-data/findRecalSeriesTRUE.rds
diff --git a/tests/testthat/test-findRecalSeries.R b/tests/testthat/test-findRecalSeries.R
@@ -63,3 +63,14 @@ patrick::with_parameters_test_that("Selection of the final series works", {
 },
   mode = c(TRUE, FALSE)
 )
+
+patrick::with_parameters_test_that("FindRecalSeries function works", {
+  df <- readRDS("test-data/scores_df_full.rds")
+  expected <- readRDS(file.path("test-data", paste0("findRecalSeries", mode, ".rds")))
+  n <- 3
+
+  actual <- find_final_series(df, n, mode)
+  expect_equal(actual, expected)
+},
+  mode = c(TRUE, FALSE)
+)