add tests for setting the generic '[' function

gagneurlab · Feb 11, 2024 · 087935f · 087935f
1 parent 2e46996
commit 087935f
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
@@ -12,3 +12,12 @@ test_that("counts", {
     expect_equal(counts(fds, type="theta", side='other'),
             N(fds, "theta") - K(fds, "theta"))
 })
+
+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")
+})