add data frame and other items to suppress warnings

Vitek-Lab · Jan 10, 2025 · 06308c5 · 06308c5
1 parent 6bb930d
commit 06308c5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-utils_visualizeNetworks.R b/tests/testthat/test-utils_visualizeNetworks.R
@@ -5,13 +5,13 @@ test_that(".addLegendInCytoscape works correctly", {
         list(color = "#FFA590", label = "label3")
     )
 
-    mock_getNodePosition <- mock()
+    mock_getNodePosition <- mock(data.frame(x_position = c("50", "51")))
     stub(
         .addLegendInCytoscape, "getNodePosition",
         mock_getNodePosition
     )
 
-    mock_getNetworkCenter <- mock()
+    mock_getNetworkCenter <- mock(list(x = 2, y = 5))
     stub(
         .addLegendInCytoscape, "getNetworkCenter",
         mock_getNetworkCenter
@@ -35,7 +35,7 @@ test_that(".addLegendInCytoscape works correctly", {
         mock_groupAnnotation
     )
 
-    mock_getAnnotationList <- mock()
+    mock_getAnnotationList <- mock(c("id1", "id2"))
     stub(
         .addLegendInCytoscape, "getAnnotationList",
         mock_getAnnotationList