diff --git a/tests/testthat/test-dev.R b/tests/testthat/test-dev.R index fdce6d4..6bd2a5e 100644 --- a/tests/testthat/test-dev.R +++ b/tests/testthat/test-dev.R @@ -256,17 +256,16 @@ test_that("gamma_pois log_lik", { # }) test_that("gamma_pois deviance snapshot", { - expect_snapshot( - { - withr::with_seed( - 101, { - x <- ran_gamma_pois(10000, 3, 0.5) - } - ) - deviance <- dev_gamma_pois(x, 3, 0.5) - deviance - } - ) + expect_snapshot({ + withr::with_seed( + 101, + { + x <- ran_gamma_pois(10000, 3, 0.5) + } + ) + deviance <- dev_gamma_pois(x, 3, 0.5) + deviance + }) }) test_that("gamma_pois ran", { diff --git a/tests/testthat/test-log-lik.R b/tests/testthat/test-log-lik.R index 50a6757..70de5b1 100644 --- a/tests/testthat/test-log-lik.R +++ b/tests/testthat/test-log-lik.R @@ -206,7 +206,8 @@ test_that("beta_binom memoized function gives same outputs as non-memoized funct log_lik_beta_binom(1:100, 200, 0.1, 0, memoize = TRUE) ) withr::with_seed( - 101, { + 101, + { x <- ran_beta_binom(1e7, 10, 0.5, 0.1) } )