tests/testthat/test-sizes.R

In metrumresearchgroup/pmtables: Tables for Pharmacometrics

library(testthat)
library(pmtables)

inspect <- function(...) {
  get_stable_data(stable(..., inspect = TRUE))
}

context("test-sizes")

test_that("test-sizes-fontsize [PMT-TEST-0184]", {
  out <- inspect(ptdata(), sizes = tab_size(font = "tiny"))
  expect_match(out$output[1], "\\tiny", fixed = TRUE)
})

test_that("test-sizes-rowspace [PMT-TEST-0185]", {
  out <- inspect(ptdata(), sizes = tab_size(row = 1.6))
  expect_match(out$output, "renewcommand{\\arraystretch}{1.6}", fixed = TRUE, all=FALSE)
})