From b2b5c0f2294e19178e95c9adc5351a1b73218a34 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 27 Feb 2019 12:57:10 +0100 Subject: Further increase test coverage --- tests/testthat/test_mkinmod.R | 52 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 tests/testthat/test_mkinmod.R (limited to 'tests/testthat/test_mkinmod.R') diff --git a/tests/testthat/test_mkinmod.R b/tests/testthat/test_mkinmod.R new file mode 100644 index 00000000..430fad61 --- /dev/null +++ b/tests/testthat/test_mkinmod.R @@ -0,0 +1,52 @@ +# 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("mkinmod model generation and printing") + +test_that("mkinmod stops to prevent and/or explain user errors", { + expect_error(mkinmod(compound_x = mkinsub("SFO", to = "compound_x_y"), + compound_x_y = mkinsub("SFO")), + "variable names can not contain each other") + expect_error(mkinmod(compound_to_x = mkinsub("SFO")), + "can not contain _to_") + expect_error(mkinmod(sink = mkinsub("SFO")), + "Naming") + + expect_error(mkinmod(parent = mkinsub("SFO"), use_of_ff = "foo")) + + expect_error(mkinmod(parent = mkinsub("foo"))) + + expect_error(mkinmod(parent = mkinsub("SFO", "m1"), + m1 = mkinsub("FOMC")), + "only implemented for the first compartment") + + expect_error(mkinmod(parent = mkinsub("IORE", "m1"), + m1 = mkinsub("SFO"), use_of_ff = "min"), + "only supported with formation fractions") + + expect_error(mkinmod(parent = mkinsub("SFORB", "m1"), + m1 = mkinsub("SFO"), use_of_ff = "max"), + "not supported") +}) + +test_that("Printing mkinmod models is reproducible", { + expect_known_output(print(mkinmod(parent = mkinsub("SFO", "m1"), + m1 = mkinsub("SFO"), + quiet = TRUE)), + file = "SFO_SFO_printed.txt") +}) -- cgit v1.2.1