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) new_seed <- 2024-11-07-14-01 x_sim_10 <- calculate(x, nsim = 10, seed = new_seed) expect_snapshot(x_sim_10) set.seed(new_seed) draws <- mcmc(m, n_samples = 10, warmup = 10, verbose = FALSE) x_draws_values <- calculate(x, values = draws, seed = new_seed) expect_snapshot(x_draws_values) x_draws_10 <- calculate(x, values = draws, nsim = 10, seed = new_seed) expect_snapshot(x_draws_10) })