# test_that("replext_t5 works", {
#   res <- replext_t5_c1.1(n=5, n_simulations = 20)
#   expect_equal(nrow(res), 1)
# })