more n max missing tests

ropensci · Sep 19, 2024 · 8a1b454 · 8a1b454
1 parent 41512e4
commit 8a1b454
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/tests/testthat/test-fusion-id.R b/tests/testthat/test-fusion-id.R
@@ -238,4 +238,26 @@ test_that('n_max_missing returns expected number of unique fusionIDs', {
     3
   )
 
+  expect_equal(
+    fusion_id(
+      edges_expected,
+      threshold = threshold,
+      n_min_length = 2,
+      n_max_missing = 1,
+      allow_split = TRUE
+    )[, uniqueN(fusionID,  na.rm = TRUE)],
+    2
+  )
+
+  expect_equal(
+    fusion_id(
+      edges_expected,
+      threshold = threshold,
+      n_min_length = 2,
+      n_max_missing = 1,
+      allow_split = TRUE
+    )[!is.na(fusionID), .N, fusionID][, max(N)],
+    5
+  )
+
 })