diff --git a/tests/testthat/test-apes.R b/tests/testthat/test-apes.R index 2a1a9d0..d410c9e 100644 --- a/tests/testthat/test-apes.R +++ b/tests/testthat/test-apes.R @@ -4,6 +4,8 @@ test_that("apes works", { mod <- feglm(trade ~ lang | year, trade_short, family = binomial()) + expect_output(print(mod)) + expect_gt(length(coef(apes(mod))), 0) expect_gt(length(coef(summary(apes(mod)))), 0) expect_gt(length(coef(bias_corr(mod))), 0) diff --git a/tests/testthat/test-fepoisson.R b/tests/testthat/test-fepoisson.R index a9837e0..4375e9d 100644 --- a/tests/testthat/test-fepoisson.R +++ b/tests/testthat/test-fepoisson.R @@ -24,9 +24,19 @@ test_that("fepoisson is similar to fixest", { expect_equal(length(fes), 2) + smod <- summary(mod) + expect_gt(length(fitted(mod)), 0) expect_gt(length(predict(mod)), 0) expect_gt(length(coef(mod)), 0) - expect_gt(length(coef(summary(mod))), 0) + expect_gt(length(coef(smod)), 0) + + expect_output(summary_formula_(smod)) + expect_output(summary_family_(smod)) + expect_output(summary_estimates_(smod, 3)) + expect_output(summary_r2_(smod, 3)) + expect_output(summary_nobs_(smod)) + expect_output(summary_fisher_(smod)) + })