diff options
| author | Ken Kellner <ken@kenkellner.com> | 2023-12-04 16:03:51 -0500 |
|---|---|---|
| committer | Ken Kellner <ken@kenkellner.com> | 2023-12-04 16:03:51 -0500 |
| commit | 18a5b03af01325a2c6dae2df237a190d31924217 (patch) | |
| tree | cb161e6f51a531f5a25266a15a7bf040a11fc739 | |
| parent | c30b8c50d0aaa7f030fe83dbe51b4cc96bf719f2 (diff) | |
Add test for unexpected error in process_output
| -rw-r--r-- | inst/tinytest/test_process_output.R | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/inst/tinytest/test_process_output.R b/inst/tinytest/test_process_output.R index 84ab2b2..87074d7 100644 --- a/inst/tinytest/test_process_output.R +++ b/inst/tinytest/test_process_output.R @@ -49,6 +49,12 @@ expect_identical(names(out3$mean), names(out$mean)) expect_false(any(is.na(unlist(out3$mean)))) expect_identical(rownames(out3$summary), c("beta", "sigma", "deviance")) +# Unexpected error happens during process_output------------------------------- + +# Here one of the arguments is missing +expect_message(out_fail <- process_output(samples)) +expect_true(is.null(out_fail)) # result is NULL + #test that process_output matches old jagsUI process.output-------------------- old_all <- readRDS("old_jagsUI_output.Rds") new_po <- process_output(old_all$samples, DIC=TRUE, quiet=TRUE) |