From 931ca24a70995c78958140b1d53dfd52e0e9bc4d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 28 Feb 2022 20:46:39 +0100 Subject: Add test for summary.nlmixr.mmkin --- tests/testthat/test_mixed.R | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'tests/testthat/test_mixed.R') diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R index 130d4596..2e241931 100644 --- a/tests/testthat/test_mixed.R +++ b/tests/testthat/test_mixed.R @@ -72,3 +72,17 @@ test_that("saemix results are reproducible for biphasic fits", { expect_true(all(ci_dfop_sfo_s_d[no_k2, "lower"] < dfop_sfo_pop[no_k2])) expect_true(all(ci_dfop_sfo_s_d[no_k1, "upper"] > dfop_sfo_pop[no_k1])) }) + +test_that("nlmixr results are reproducible for biphasic fits", { + + test_summary <- summary(nlmixr_saem_biphasic) + test_summary$saemixversion <- "Dummy 0.0 for testing" + test_summary$mkinversion <- "Dummy 0.0 for testing" + test_summary$Rversion <- "Dummy R version for testing" + test_summary$date.fit <- "Dummy date for testing" + test_summary$date.summary <- "Dummy date for testing" + test_summary$time <- c(elapsed = "test time 0") + + expect_known_output(print(test_summary, digits = 1), "summary_nlmixr_saem_biphasic.txt") +}) + -- cgit v1.2.1