R Under development (unstable) (2026-11-02 r90827 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(BayesTools)

Attaching package: 'BayesTools'

The following objects are masked from 'package:stats':

    sd, var

The following object is masked from 'package:grDevices':

    pdf

> 
> reporter <- NULL
> if (identical(Sys.getenv("AGENT"), "1") &&
+     exists("LlmReporter", envir = asNamespace("testthat"), inherits = FALSE)) {
+   reporter <- testthat::LlmReporter$new()
+ }
> 
> # CRAN runs only the smoke test; the profiles cover everything else.
> on_cran <- get("on_cran", envir = asNamespace("testthat"), inherits = FALSE)
> filter  <- NULL
> if (on_cran()) {
+   Sys.setenv(BAYESTOOLS_TEST_PROFILE = "cran")
+   filter <- "cran-smoke"
+ }
> 
> if (is.null(reporter)) {
+   test_check("BayesTools", filter = filter)
+ } else {
+   test_check("BayesTools", filter = filter, reporter = reporter)
+ }
[ FAIL 0 | WARN 0 | SKIP 0 | PASS 13 ]
> 
> proc.time()
   user  system elapsed 
   2.65    0.67    3.98