tests/testthat/test-extract_fuctions.R

In ljcolling/bayesplay: The Bayes Factor Playground

test_that("multiplication works", {
  l <- likelihood("normal", 0, .1)
  p <- prior("normal", 0, 10)
  prod <- l * p
  expect_s4_class(
    extract_predictions(prod),
    "prediction"
  )

  expect_s4_class(
    extract_posterior(prod),
    "posterior"
  )

  expect_s4_class(
    prod,
    "product"
  )
})