Removed context() and library(bayesplot) in tests

VisruthSK · VisruthSK · commit 42c2872e8013 · 2025-12-07T18:54:59.000-08:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -56,9 +56,10 @@ Suggests:
     scales,
     shinystan (>= 2.3.0),
     survival,
-    testthat (>= 2.0.0),
+    testthat (>= 3.0.0),
     vdiffr (>= 1.0.2)
 RoxygenNote: 7.3.3
 VignetteBuilder: knitr
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
+Config/testthat/edition: 3
diff --git a/tests/testthat/test-aesthetics.R b/tests/testthat/test-aesthetics.R
@@ -1,7 +1,3 @@
-library(bayesplot)
-context("Aesthetics")
-
-
 # color scheme stuff ------------------------------------------------------
 
 prepare_colors_for_test <- function(scheme) {
diff --git a/tests/testthat/test-available_ppc.R b/tests/testthat/test-available_ppc.R
@@ -1,7 +1,3 @@
-library(bayesplot)
-context("available_mcmc and available_ppc")
-
-
 test_that("available_mcmc works", {
   a <- available_mcmc()
   expect_s3_class(a, "bayesplot_function_list")
diff --git a/tests/testthat/test-bayesplot_grid.R b/tests/testthat/test-bayesplot_grid.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("bayesplot_grid")
-
 skip_if_not_installed("gridExtra")
 
 y <- example_y_data()
diff --git a/tests/testthat/test-convenience-functions.R b/tests/testthat/test-convenience-functions.R
@@ -1,7 +1,4 @@
-library(bayesplot)
 library(ggplot2)
-context("Convenience functions (for ggplot objects)")
-
 
 # abline_01, vline_ and hline_ ------------------------------------------
 test_that("abline_01 returns the correct object", {
diff --git a/tests/testthat/test-example-draws.R b/tests/testthat/test-example-draws.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("Example draws")
-
 test_that("example_mcmc_draws throws correct errors", {
   expect_error(example_mcmc_draws(chains = 5), "chains <= 4")
   expect_error(example_mcmc_draws(chains = 0), "chains >= 1")
diff --git a/tests/testthat/test-extractors.R b/tests/testthat/test-extractors.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("Extractors")
-
 if (requireNamespace("rstanarm", quietly = TRUE)) {
   ITER <- 1000
   CHAINS <- 3
diff --git a/tests/testthat/test-helpers-mcmc.R b/tests/testthat/test-helpers-mcmc.R
@@ -1,10 +1,5 @@
-library(bayesplot)
-context("MCMC: misc. functions")
-
 source(test_path("data-for-mcmc-tests.R"))
 
-
-
 # melt_mcmc ----------------------------------------------------------------
 test_that("melt_mcmc does not convert integer parameter names to integers #162", {
   mat2 <- mat[, 1:2]
diff --git a/tests/testthat/test-helpers-ppc.R b/tests/testthat/test-helpers-ppc.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: misc. functions")
-
 source(test_path("data-for-ppc-tests.R"))
 source(test_path("data-for-mcmc-tests.R"))
 
diff --git a/tests/testthat/test-helpers-shared.R b/tests/testthat/test-helpers-shared.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("Shared: misc. functions")
-
 # suggested packages ------------------------------------------------------
 test_that("suggested_package throws correct errors", {
   expect_error(suggested_package("NOPACKAGE"),
diff --git a/tests/testthat/test-mcmc-combo.R b/tests/testthat/test-mcmc-combo.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("MCMC: combo")
-
 source(test_path("data-for-mcmc-tests.R"))
 
 test_that("mcmc_combo returns a gtable object", {
diff --git a/tests/testthat/test-mcmc-diagnostics.R b/tests/testthat/test-mcmc-diagnostics.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("MCMC: diagnostics")
-
 source(test_path("data-for-mcmc-tests.R"))
 
 test_that("rhat and neff plots return a ggplot object", {
diff --git a/tests/testthat/test-mcmc-distributions.R b/tests/testthat/test-mcmc-distributions.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("MCMC: distributions")
-
 source(test_path("data-for-mcmc-tests.R"))
 
 get_palette <- function(ggplot, n) {
diff --git a/tests/testthat/test-mcmc-intervals.R b/tests/testthat/test-mcmc-intervals.R
@@ -1,9 +1,5 @@
-library(bayesplot)
-context("MCMC: intervals")
-
 source(test_path("data-for-mcmc-tests.R"))
 
-
 test_that("mcmc_intervals_data computes quantiles", {
   xs <- melt_mcmc(merge_chains(prepare_mcmc_array(arr, pars = "beta[1]")))
   d <- mcmc_intervals_data(arr, pars = "beta[1]",
diff --git a/tests/testthat/test-mcmc-nuts.R b/tests/testthat/test-mcmc-nuts.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("MCMC: nuts")
-
 if (requireNamespace("rstanarm", quietly = TRUE)) {
   ITER <- 1000
   CHAINS <- 3
diff --git a/tests/testthat/test-mcmc-recover.R b/tests/testthat/test-mcmc-recover.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("MCMC: recover")
-
 set.seed(123)
 draws <- matrix(rnorm(4 * 1000), nrow = 1000)
 colnames(draws) <- c("alpha", "beta[1]", "beta[2]", "sigma")
diff --git a/tests/testthat/test-mcmc-scatter-and-parcoord.R b/tests/testthat/test-mcmc-scatter-and-parcoord.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("MCMC: scatter, hex, and parallel coordinates plots")
-
 source(test_path("data-for-mcmc-tests.R"))
 
 if (requireNamespace("rstanarm", quietly = TRUE)) {
diff --git a/tests/testthat/test-mcmc-traces.R b/tests/testthat/test-mcmc-traces.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("MCMC: traces")
-
 source(test_path("data-for-mcmc-tests.R"))
 
 test_that("mcmc_trace returns a ggplot object", {
diff --git a/tests/testthat/test-pp_check.R b/tests/testthat/test-pp_check.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: pp_check generic and default method")
-
 test_that("default pp_check method works", {
   y <- example_y_data()
   yrep <- example_yrep_draws()
diff --git a/tests/testthat/test-ppc-censoring.R b/tests/testthat/test-ppc-censoring.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: censoring")
-
 source(test_path("data-for-ppc-tests.R"))
 
 test_that("ppc_km_overlay returns a ggplot object", {
diff --git a/tests/testthat/test-ppc-discrete.R b/tests/testthat/test-ppc-discrete.R
@@ -1,6 +1,4 @@
-library(bayesplot)
 # suppressPackageStartupMessages(library(rstanarm))
-context("PPC: discrete")
 
 source(test_path("data-for-ppc-tests.R"))
 load(test_path("data-for-ordinal.rda"))
diff --git a/tests/testthat/test-ppc-distributions.R b/tests/testthat/test-ppc-distributions.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: distributions")
-
 source(test_path("data-for-ppc-tests.R"))
 
 test_that("ppc_dens_overlay returns a ggplot object", {
diff --git a/tests/testthat/test-ppc-errors.R b/tests/testthat/test-ppc-errors.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: predictive errors")
-
 source(test_path("data-for-ppc-tests.R"))
 
 test_that("ppc_error_hist and ppc_error_scatter return ggplot object", {
diff --git a/tests/testthat/test-ppc-input-validation.R b/tests/testthat/test-ppc-input-validation.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: input validation")
-
 source(test_path("data-for-ppc-tests.R"))
 
 test_that("validate_y works", {
diff --git a/tests/testthat/test-ppc-intervals.R b/tests/testthat/test-ppc-intervals.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: intervals & ribbon")
-
 source(test_path("data-for-ppc-tests.R"))
 
 test_that("ppc_intervals returns ggplot object", {
diff --git a/tests/testthat/test-ppc-loo.R b/tests/testthat/test-ppc-loo.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: loo")
-
 options(useFancyQuotes = FALSE)
 
 if (requireNamespace("rstanarm", quietly = TRUE) &&
diff --git a/tests/testthat/test-ppc-scatterplots.R b/tests/testthat/test-ppc-scatterplots.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: scatterplots")
-
 source(test_path("data-for-ppc-tests.R"))
 
 test_that("ppc_scatter returns ggplot object", {
diff --git a/tests/testthat/test-ppc-test-statistics.R b/tests/testthat/test-ppc-test-statistics.R
@@ -1,6 +1,3 @@
-library(bayesplot)
-context("PPC: test-statistics")
-
 source(test_path("data-for-ppc-tests.R"))
 
 q25 <- function(x) quantile(x, 0.25)
