updated tests

RECETOX · Oct 30, 2024 · c20e40b · c20e40b
1 parent 0ac4b5e
commit c20e40b
Show file tree

Hide file tree

Showing 17 changed files with 8 additions and 3 deletions.
diff --git a/tests/testthat/test-IsoFiltR.R b/tests/testthat/test-IsoFiltR.R
@@ -1,8 +1,14 @@
+update_expected <- function(actual, expected_path) {
+  saveRDS(actual, file = expected_path)
+}
+
 patrick::with_parameters_test_that("IsoFiltR works",
   {
     raw <- read.csv(file.path("test-data", paste0("QC1_1_", toupper(mode), "_500.csv")))
     actual <- IsoFiltR(raw)
-    expected <- readRDS(file.path("test-data", paste0(mode, "_iso.rds")))
+    expected_path <- file.path("test-data", paste0(mode, "_iso.rds"))
+    expected <- readRDS(expected_path)
+
     expect_equal(actual, expected)
   },
   mode = c("pos", "neg")
@@ -20,7 +26,6 @@ test_that("IsoFiltR works on recetox-aplcms output", {
 
 patrick::with_parameters_test_that("filtered_data_is_empty works", {
   expect_equal(filtered_data_is_empty(test_data), expected)
-
   },
   patrick::cases(
     empty = list(test_data=list(content=c()), expected=TRUE),

diff --git a/tests/testthat/test-MFAssign.R b/tests/testthat/test-MFAssign.R
@@ -15,7 +15,7 @@ load_expected <- function(mode) {
   ))
 }
 
-save_expected <- function(actual, mode) {
+update_expected <- function(actual, mode) {
   paths <- expected_paths(mode)
   saveRDS(actual$Unambig, paths$unambig)
   saveRDS(actual$Ambig, paths$ambig)

diff --git a/tests/testthat/test-data/21_qc_no_dil_milliq_iso.rds b/tests/testthat/test-data/21_qc_no_dil_milliq_iso.rds
diff --git a/tests/testthat/test-data/neg_ambig.rds b/tests/testthat/test-data/neg_ambig.rds
diff --git a/tests/testthat/test-data/neg_cho_ambig.rds b/tests/testthat/test-data/neg_cho_ambig.rds
diff --git a/tests/testthat/test-data/neg_cho_none.rds b/tests/testthat/test-data/neg_cho_none.rds
diff --git a/tests/testthat/test-data/neg_cho_unambig.rds b/tests/testthat/test-data/neg_cho_unambig.rds
diff --git a/tests/testthat/test-data/neg_iso.rds b/tests/testthat/test-data/neg_iso.rds
diff --git a/tests/testthat/test-data/neg_none.rds b/tests/testthat/test-data/neg_none.rds
diff --git a/tests/testthat/test-data/neg_unambig.rds b/tests/testthat/test-data/neg_unambig.rds
diff --git a/tests/testthat/test-data/pos_ambig.rds b/tests/testthat/test-data/pos_ambig.rds
diff --git a/tests/testthat/test-data/pos_cho_ambig.rds b/tests/testthat/test-data/pos_cho_ambig.rds
diff --git a/tests/testthat/test-data/pos_cho_none.rds b/tests/testthat/test-data/pos_cho_none.rds
diff --git a/tests/testthat/test-data/pos_cho_unambig.rds b/tests/testthat/test-data/pos_cho_unambig.rds
diff --git a/tests/testthat/test-data/pos_iso.rds b/tests/testthat/test-data/pos_iso.rds
diff --git a/tests/testthat/test-data/pos_none.rds b/tests/testthat/test-data/pos_none.rds
diff --git a/tests/testthat/test-data/pos_unambig.rds b/tests/testthat/test-data/pos_unambig.rds