Merge branch 'devel' of git.bioconductor.org:packages/FRASER into bio…

…c_devel
gagneurlab · Apr 27, 2024 · 9e51cd0 · 9e51cd0
2 parents 1dfe7e1 + e68992a
commit 9e51cd0
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test_getter_setter.R b/tests/testthat/test_getter_setter.R
@@ -33,3 +33,12 @@ test_that("generic functions", {
             c("FraserDataSet", "ANY", "ANY", drop="missing"))
     expect_equal(slot(methDef, "defined")[["x"]], "FraserDataSet")
 })
+
+test_that("generic functions", {
+    # test that the correct functions are selected and called
+    methDef <- selectMethod("[", c("FraserDataSet", "ANY", "ANY", drop="ANY"))
+    expect_equal(slot(methDef, "defined")[["x"]], "FraserDataSet")
+    methDef <- selectMethod("[", 
+            c("FraserDataSet", "ANY", "ANY", drop="missing"))
+    expect_equal(slot(methDef, "defined")[["x"]], "FraserDataSet")
+})