test msg overwritten column if already present

ropensci · Sep 19, 2024 · 7f67947 · 7f67947
1 parent 66a88bb
commit 7f67947
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/testthat/test-fusion-id.R b/tests/testthat/test-fusion-id.R
@@ -86,3 +86,11 @@ test_that('returns a numeric fusionID column', {
   )), 'fusionID')
   expect_type(edges$fusionID, 'integer')
 })
+
+test_that('message if fusionID column already present, overwritten', {
+  edges[, fusionID := 42]
+  expect_message(fusion_id(
+    edges = edges,
+    threshold = 50
+  ), 'fusionID column will be overwritten by this function')
+})