tests/testthat/test-fng-tdcm.R

In tdcmStan: Automating the Creation of Stan Code for TDCMs

test_that("Create Fungible TDCM works", {
  q_matrix <- tibble::tibble(att_1 = rep(1, 24))

  fng_tdcm_stan <- create_fng_stan_tdcm(q_matrix)
  fng_tdcm_stan %>%
    readr::write_lines(testthat::test_path("data/fng-tdcm-stan.stan"))

  fng_tdcm_stan <-
    readr::read_lines(testthat::test_path("data/fng-tdcm-stan.stan"))
  true_fng_tdcm_stan <-
    readr::read_lines(testthat::test_path("data/dlm-fng-tdcm.stan"))

  testthat::expect_equal(fng_tdcm_stan, true_fng_tdcm_stan)
})