tests/testthat/test-print_calculate.R

In goldingn/greta: Simple and Scalable Statistical Modelling in R

test_that("calculate print method is different for different inputs", {
  skip_if_not(check_tf_version())
  # ensure print method is the new MCMC one
  skip_on_cran()
  skip_on_ci()

  x <- normal(0,1)
  m <- model(x)
  tensorflow::set_random_seed(2024-07-30-1057)
  draws <- mcmc(m, n_samples = 10, warmup = 10, verbose = FALSE)
  x_sim_10 <- calculate(x, nsim = 10, seed = 2024-08-1004)
  x_draws_10 <- calculate(x, values = draws, seed = 2024-08-1004)
  x_draws_10 <- calculate(x, values = draws, nsim = 10, seed = 2024-08-1004)
  expect_snapshot(x_sim_10)
  expect_snapshot(x_draws_10)
  expect_snapshot(x_draws_10)
})