Merge pull request #366 from billdenney/increasing_testing_coverage_revision

Increasing Testing Coverage (revision)

Author: billdenney

R/pk.calc.all.R

@@ -376,7 +376,7 @@ pk.nca.interval <- function(conc, time, volume, duration.conc,
   all_intervals <- get.interval.cols()
   # Set the dose to NA if its length is zero
   if (length(dose) == 0) {
-    stop("Please report a bug. Length of dose should not be zero.")
+    stop("Please report a bug. Length of dose should not be zero.") # nocov
   }
   # Make sure that we calculate all of the dependencies.  Do this in
   # reverse order for dependencies of dependencies.

tests/testthat/test-time.to.steady.state.R

@@ -750,3 +750,9 @@ test_that("tss Monoexponential no models converged", {
   expect_warning(pk.tss.monoexponential.population(data = bad_data, output = "population"),
   regexp = "No population model for monoexponential Tss converged, no results given")
 })
+
+test_that("tss Monoexponential no models converged with verbose = TRUE", {
+  bad_data <- data.frame(subject=rep(1:2, each = 4), time=0, conc=0, tss.constant=0.9)
+  expect_warning(pk.tss.monoexponential.population(data = bad_data, output = "population", verbose = TRUE),
+                 regexp = "No population model for monoexponential Tss converged, no results given")
+})