a few more tests

Author: jgabry

tests/testthat/test-fit-laplace.R

@@ -5,7 +5,7 @@ fit_laplace <- testing_fit("logistic", method = "laplace", seed = 100)
 PARAM_NAMES <- c("alpha", "beta[1]", "beta[2]", "beta[3]")
 
 
-test_that("summary() and print() methods works after vb", {
+test_that("summary() and print() methods works after laplace", {
   x <- fit_laplace$summary()
   expect_s3_class(x, "draws_summary")
   expect_equal(x$variable, c("lp__", "lp_approx__", PARAM_NAMES))

tests/testthat/test-model-laplace.R

@@ -70,6 +70,9 @@ test_that("laplace() all valid 'mode' inputs give same results", {
   expect_is(fit1, "CmdStanLaplace")
   expect_is(fit2, "CmdStanLaplace")
   expect_is(fit3, "CmdStanLaplace")
+  expect_is(fit1$mode(), "CmdStanMLE")
+  expect_is(fit2$mode(), "CmdStanMLE")
+  expect_is(fit3$mode(), "CmdStanMLE")
   expect_equal(fit1$mode()$mle(), fit2$mode()$mle())
   expect_equal(fit1$mode()$mle(), fit3$mode()$mle())
   expect_equal(fit1$lp(), fit2$lp())