tests/testthat/test.jagsTwoBaselinesFull.R

In clquezada/tRophicPosition: Bayesian Trophic Position Estimation with Stable Isotopes

context("jagsTwoBaselinesFull")

test_that("function return a character class", {
  expect_equal(typeof(jagsTwoBaselinesFull()), "character")
})

test_that("function return a ihnerited oneBaseline class", {
  expect_equal(class(jagsTwoBaselinesFull())[2], "twoBaselinesFull")
})

test_that("function send a warning/error when priors are not correctly written",
          {
            expect_warning(jagsTwoBaselinesFull(TP = "dnorm(3, 1"))

            expect_warning(jagsTwoBaselinesFull(TP = "dnorm(3, 1"),
                           muB = "duni(3,3)")

            expect_warning(jagsTwoBaselinesFull(sigmaB = "dnorn(3, 1)"))

            expect_warning(jagsTwoBaselinesFull(TP = "dnorm(3, 1)",
                                            sigmaDeltaN = "dbeta(1,1"))

            expect_warning(jagsTwoBaselinesFull(TP = "dnorm(3, 1)",
                                            sigmaDeltaN = "dbeta(1, 1)",
                                            alpha = "dbeta(1, 2"))

            expect_error(jagsTwoBaselinesFull(TP = "dnorm(3, 1)",
                                          sigma = "dbeta(1, 1)",
                                          lambda = "5"))
          })