tests/testthat/test-digits.R

In metrumresearchgroup/pmtables: Tables for Pharmacometrics

context("test-digits")

test_that("new digit object [PMT-TEST-0060]", {
  x <- new_digits(.fun = pmtables:::sig)
  expect_is(x,"digits")
  expect_true(pmtables:::is.digits(x))
  expect_is(pmtables:::get_digits_fun(x), "function")
  expect_is(pmtables:::get_digits_list(x), "list")
  expect_is(as.list(x),"list")
})

test_that("new digit object, with defaults [PMT-TEST-0061]", {
  x <- new_digits(.fun = pmtables:::sig, A = 1, B = 2)
  expect_is(x,"digits")
  expect_equal(x$.default,3)
  expect_is(x$.digits, "list")
  expect_equal(names(x$.digits), c("A", "B"))
  expect_equal(x$.digits$A,1)
  expect_equal(x$.digits$B,2)
})

test_that("update digit object [PMT-TEST-0062]", {
  x <- new_digits(.fun = pmtables:::sig, A = 1, B = 1, C = 1)
  x <- pmtables:::update_digits(x, cols = c("B", "Z", "A"))
  data <- pmtables:::get_digits_list(x)
  expect_is(data,"list")
  expect_named(data)
  expect_equal(names(data), c("B", "Z", "A"))
  expect_equal(data$B,1)
  expect_equal(data$A,1)
  expect_equal(data$Z,x$.default)
})

test_that("print [PMT-TEST-0063]", {
  x <- new_digits(.fun = pmtables:::sig, A = 1, B = 1, C = 1)
  ans <- capture.output(print(x))
  expect_is(ans,"character")
  expect_length(ans, 6)
  expect_true(grepl("function:",ans[1]))
  expect_true(grepl("default:",ans[2]))
  expect_true(grepl("customization:",ans[3]))
  x <- new_digits()
  ans <- capture.output(print(x))
  expect_length(ans,2)
})

test_that("digits - invalid function [PMT-TEST-0064]", {
  expect_error(new_digits(.fun = sum), "'digits' must be included")
})