From 67d032fb345f8e0afc7628d7525da5b7f0a98f79 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 8 Jul 2019 16:30:55 +0200 Subject: Support summarizing older fits generated with mkin < 0.9.49.5 --- tests/testthat/FOCUS_2006_D.csf | 2 +- tests/testthat/test_summary_old_objects.R | 29 +++++++++++++++++++++++++++++ 2 files changed, 30 insertions(+), 1 deletion(-) create mode 100644 tests/testthat/test_summary_old_objects.R (limited to 'tests/testthat') diff --git a/tests/testthat/FOCUS_2006_D.csf b/tests/testthat/FOCUS_2006_D.csf index 0869672b..f9233770 100644 --- a/tests/testthat/FOCUS_2006_D.csf +++ b/tests/testthat/FOCUS_2006_D.csf @@ -5,7 +5,7 @@ Description: MeasurementUnits: % AR TimeUnits: days Comments: Created using mkin::CAKE_export -Date: 2019-07-05 +Date: 2019-07-08 Optimiser: IRLS [Data] diff --git a/tests/testthat/test_summary_old_objects.R b/tests/testthat/test_summary_old_objects.R new file mode 100644 index 00000000..11e63553 --- /dev/null +++ b/tests/testthat/test_summary_old_objects.R @@ -0,0 +1,29 @@ +# Copyright (C) 2019 Johannes Ranke +# Contact: jranke@uni-bremen.de + +# This file is part of the R package mkin + +# mkin is free software: you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation, either version 3 of the License, or (at your option) any later +# version. + +# This program is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS +# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +# details. + +# You should have received a copy of the GNU General Public License along with +# this program. If not, see + +context("Summaries of old mkinfit objects") + +test_that("A fit generated with mkin 0.9.48.1 can be summarised", { + # Generated with mkin 0.9.48.1 + # SFO_SFO <- mkinmod(parent = list(type = "SFO", to = "m1"), + # m1 = list(type = "SFO"), quiet = TRUE) + # fit_old <- mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE) + # save(fit_old, file = "~/git/mkin/inst/testdata/fit_old_FOCUS_D.rda", version = 2 ) + load(system.file("testdata/fit_old_FOCUS_D.rda", package = "mkin")) + expect_true(length(summary(fit_old)) > 0) +}) -- cgit v1.2.1