tests/testthat/test-as_backfillz.R

In WarwickCIM/backfillz: MCMC visualisation package

test_that("that backfillz object can be created", {

    sample_backfillz <- as_backfillz(sample_stanfit, verbose = FALSE)
    # expected_backfillz <- as_backfillz(sample_stanfit, verbose = FALSE)
    # save(expected_backfillz, file = 'expected_backfillz.RData')
    save(sample_backfillz, file = "sample_backfillz.RData")

    load("sample_backfillz.RData")
    load("expected_backfillz.RData")

    file.remove("sample_backfillz.RData")

    # wipe the plot log which has date information
    # the test will otherwise always fail
    sample_backfillz@plot_history <- data.frame()
    expected_backfillz@plot_history <- data.frame()

    testthat::expect_equal(sample_backfillz, expected_backfillz)
})