tests/testthat/test_lookup_tables.R

In crsh/papaja: Prepare American Psychological Association Journal Articles with R Markdown

test_that(
  "Check lookup tables"
  , {
    expect(
      !any(duplicated(names(lookup_names)))
      , "Some names are duplicated in 'lookup_names'."
    )
    expect(
      !any(duplicated(names(lookup_labels)))
      , "Some names are duplicated in 'lookup_labels'."
    )
  }
)