tests/testthat/test-diagrammer-installed.R

In greta: Simple and Scalable Statistical Modelling in R

test_that("DiagrammeR installation is checked", {
  skip_if_not(check_tf_version())
  skip_on_cran()
  mockery::stub(
    where = plot.greta_model,
    what = 'is_DiagrammeR_installed',
    how = FALSE
    )
  m <- model(normal(0,1))
    expect_snapshot_error(
      x = plot(m)
      )
})