a few more tests for edge cases

Author: jgabry

tests/testthat/test-convenience-functions.R

@@ -39,6 +39,7 @@ test_that("calc_v (internal function) works", {
   expect_identical(calc_v(a, median), 2.5)
   expect_equal(calc_v(c(a, NA), mean), NA_real_)
   expect_identical(calc_v(c(a, NA), min, list(na.rm = TRUE)), 1L)
+  expect_error(calc_v(fun = "mean"), "'v' can't be missing")
 })
 
 # lbub --------------------------------------------------------------------

tests/testthat/test-mcmc-combo.R

@@ -5,6 +5,8 @@ source(test_path("data-for-mcmc-tests.R"))
 
 test_that("mcmc_combo returns a gtable object", {
   expect_gtable(mcmc_combo(arr, regex_pars = "beta"))
+  expect_gtable(mcmc_combo(arr, regex_pars = "beta",
+                           gg_theme = ggplot2::theme_dark()))
   expect_gtable(mcmc_combo(mat, regex_pars = "beta",
                            binwidth = 1/20, combo = c("dens", "hist"),
                            facet_args = list(nrow = 2)))

tests/testthat/test-ppc-errors.R

@@ -46,6 +46,18 @@ test_that("ppc_error_binned returns ggplot object", {
   expect_gg(ppc_error_binned(rep(y, 2), cbind(Ey, Ey)))
 })
 
+test_that("bin_errors works for edge cases", {
+  ans <-
+    data.frame(
+      ey_bar = c(1, NaN),
+      err_bar = c(0, NaN),
+      se2 = c(0, NaN),
+      bin = c(1, 2)
+    )
+  val <- bin_errors(rep(1, 10), rep(0, 10), bins = 1)
+  expect_equal(ans, val)
+})
+
 
 # Visual tests -----------------------------------------------------------------
 

tests/testthat/test-ppc-test-statistics.R

@@ -39,6 +39,11 @@ test_that("ppc_stat_2d returns ggplot object", {
   expect_gg(ppc_stat_2d(y2, yrep2))
 })
 
+test_that("ppc_stat_2d erros if more than 2 stats", {
+  expect_error(ppc_stat_2d(y, yrep, stat = c("mean", "sd", "var")),
+               "argument must have length 2")
+})
+
 test_that("ppc_stat_grouped returns ggplot object", {
   expect_gg(ppc_stat_grouped(y, yrep, group))
   expect_gg(ppc_stat_grouped(y, yrep, as.numeric(group), stat = function(z) var(z)))