tests/testthat/test_validate_bibliography.R

In HughParsonage/grattanReporter: Parses Grattan Reports, Possibly Creating PDFs also

context("Validate bibliography")

test_that("Bills of Parliament", {
  expect_error(validate_bibliography(file = "./validate-bib/invalid-Bill.bib"),
               regexp = "Bills? of Parliament")
  expect_null(validate_bibliography(file = "./validate-bib/valid-Bill.bib"))
})

test_that("Duplicate fields noticed", {
  skip_if_not(packageVersion("TeXCheckR") < package_version("0.2.1"))
  expect_error(fread_bib("./validate-bib/dup_fields.bib"), 
               regexp = "Duplicate fields found in RMS2010Hunter")
})

test_that("Duplicate entries error", {
  expect_error(any_bib_duplicates("./validate-bib/dup_entries.bib"), 
               regexp = "[Dd]uplicate entries in bibliography")
  expect_error(any_bib_duplicates("./validate-bib/dup_entries-2.bib"), 
               regexp = "[Dd]uplicate entries in bibliography")
})

test_that("Duplicate keys noticed", {
  expect_error(any_bib_duplicates(c("./validate-bib/dup-keys-1.bib", "./validate-bib/dup-keys-2.bib")), 
               regexp = "[Dd]uplicate")
})

test_that("Broken fields detected", {
  expect_error(validate_bibliography(file = "./validate-bib/field-broken-over2lines.bib"), 
               regexp = "which is neither a key, nor field")
})

test_that("Issue 75: Attorney-Generals", {
  expect_error(validate_bibliography(file = "./validate-bib/AG-no-hyphen.bib"),
               regexp = "Attorney")
  expect_error(validate_bibliography(file = "./validate-bib/AG-unprotected.bib"), 
               regexp = "Attorney")
})