Merge pull request #61 from KristinaGomoryova/fix_60

Unit test for overall findRecalSeries function
RECETOX · Sep 13, 2024 · a6f140c · a6f140c
2 parents b5ce0bf + 46f7b4a
commit a6f140c
Show file tree

Hide file tree

Showing 3 changed files with 18 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,21 @@ 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/pos_recallist.rds")
+  expected <- readRDS(file.path("test-data", paste0("findRecalSeries", mode, ".rds")))
+  n <- 3
+
+  actual <- FindRecalSeries(df,
+                        global_min = 100,
+                        global_max = 500,
+                        number_of_combinations = 3,
+                        abundance_score_threshold = 100,
+                        peak_distance_threshold = 2,
+                        coverage_threshold = 60,
+                        fill_series = mode)
+  expect_equal(actual, expected)
+},
+  mode = c(TRUE, FALSE)
+)