expect_warning in some noisy warning+error tests

A couple warnings were leaking out of `test()` from test cases that produced a
warning + error but only used `expect_error()`.  Use `expect_warning` in
addition to test for specific expected warnings.

Author: brookslogan

tests/testthat/test-utils.R

@@ -176,13 +176,23 @@ test_that("assert_sufficient_f_args alerts if the provided f has defaults for th
                class = "epiprocess__assert_sufficient_f_args__required_args_contain_defaults")
   expect_error(assert_sufficient_f_args(f_xsgt_dots, "b"),
                class = "epiprocess__assert_sufficient_f_args__required_args_contain_defaults")
-  expect_error(assert_sufficient_f_args(f_xs_dots, "b"),
-               class = "epiprocess__assert_sufficient_f_args__required_args_contain_defaults")
+  expect_error(
+    expect_warning(
+      assert_sufficient_f_args(f_xs_dots, "b"),
+      class = "epiprocess__assert_sufficient_f_args__mandatory_f_args_passed_to_f_dots"
+    ),
+    class = "epiprocess__assert_sufficient_f_args__required_args_contain_defaults"
+  )
 
   # forwarding no dots should produce a different error message in some cases:
-  expect_error(assert_sufficient_f_args(f_xs_dots),
-               regexp = "window data and group key to `f`'s x and setting argument",
-               class = "epiprocess__assert_sufficient_f_args__required_args_contain_defaults")
+  expect_error(
+    expect_warning(
+      assert_sufficient_f_args(f_xs_dots),
+      class = "epiprocess__assert_sufficient_f_args__mandatory_f_args_passed_to_f_dots"
+    ),
+    regexp = "window data and group key to `f`'s x and setting argument",
+    class = "epiprocess__assert_sufficient_f_args__required_args_contain_defaults"
+  )
 })
 
 test_that("computation formula-derived functions take all argument types", {