tests/testthat/test-get_formatting.R

In forgts: Convert Formatted Spreadsheets to Presentation-Ready Display Tables

test_that("get_formatting extracts formatting information in a long, key-value format", {
  test_spreadsheet <- system.file("extdata", "rodentsheet.xlsx", package = "forgts")

  formatting <- get_formatting(test_spreadsheet)

  expect_true("format" %in% names(formatting))
  expect_true("val" %in% names(formatting))
})