tests/testthat/test-overview.R

In gavinsimpson/gratia: Graceful 'ggplot'-Based Graphics and Other Functions for GAMs Fitted Using 'mgcv'

# Test overview() & methods

test_that("overview works for a GAM", {
  expect_silent(ovr <- overview(m_gam))
  expect_s3_class(ovr, "tbl_df")
  expect_s3_class(ovr, "overview")
})

test_that("overview works for a GAMM", {
  expect_silent(ovr <- overview(m_gamm))
  expect_s3_class(ovr, "tbl_df")
  expect_s3_class(ovr, "overview")
})

test_that("overview works for a BAM", {
  expect_silent(ovr <- overview(m_bam))
  expect_s3_class(ovr, "tbl_df")
  expect_s3_class(ovr, "overview")
})

test_that("print() output is as expected for GAM", {
  expect_snapshot({
    print(overview(m_gam))
  })
  expect_snapshot({
    print(overview(m_gam, stars = TRUE))
  })
})

test_that("print() output is as expected for GAMM", {
  expect_snapshot({
    print(overview(m_gamm))
  })
  expect_snapshot({
    print(overview(m_gamm, stars = TRUE))
  })
})

test_that("print() output is as expected for BAM", {
  expect_snapshot({
    print(overview(m_bam))
  })
  expect_snapshot({
    print(overview(m_bam, stars = TRUE))
  })
})