add test for silencer

r-causal · May 17, 2024 · da938e3 · da938e3
1 parent d0cfa3f
commit da938e3
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test-weights.R b/tests/testthat/test-weights.R
@@ -3,6 +3,15 @@ test_that("ATE works for binary cases", {
     weights <- wt_ate(c(.1, .3, .4, .3), .exposure = c(0, 0, 1, 0)),
     "Treating `.exposure` as binary"
   )
+
+  expect_silent(
+    wt_ate(
+      c(.1, .3, .4, .3),
+      .exposure = c(0, 0, 1, 0),
+      exposure_type = "binary"
+    )
+  )
+
   expect_equal(
     weights,
     c(1.11, 1.43, 2.50, 1.43),