if (requireNamespace("tinytest", quietly = TRUE)) {

  test_tmat_matches_expected <- function(tmat) {
    # Check for out of bounds values
    tinytest::expect_false(any(tmat < 0))
    tinytest::expect_false(any(tmat > 1))
  }

  tinytest::test_package("epiworldR")
}