diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-27 08:06:59 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-27 08:06:59 +0100 |
| commit | c446b59e675aeff08ff7205b05f06cd81bf6dc68 (patch) | |
| tree | e02e6be6232df57e8722865b06e71af3157af891 /tests/testthat/test_CAKE_export.R | |
| parent | 10f2314d12bc1e1664b1ff1db015d1df9f7fbe34 (diff) | |
Fix CAKE export test to actually work
Also test the model specification via the link argument
Diffstat (limited to 'tests/testthat/test_CAKE_export.R')
| -rw-r--r-- | tests/testthat/test_CAKE_export.R | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/testthat/test_CAKE_export.R b/tests/testthat/test_CAKE_export.R index 5f984782..23b424fc 100644 --- a/tests/testthat/test_CAKE_export.R +++ b/tests/testthat/test_CAKE_export.R @@ -22,8 +22,10 @@ test_that("Exporting is reproducible", { CAKE_export(list("FOCUS C" = FOCUS_2006_C, "FOCUS D" = FOCUS_2006_D), map = c(parent = "Parent", m1 = "M1"), + links = c(parent = "m1"), filename = "FOCUS_2006_D.csf", overwrite = TRUE, study = "FOCUS 2006 D") csf <- readLines(con = "FOCUS_2006_D.csf") - expect_known_output(csf, "FOCUS_2006_D.txt") + csf[8] <- "Date: Dummy date 0000-00-00" + expect_known_value(csf, file = "FOCUS_2006_D.rds") }) |