tests/testthat/test-cv.r

In jefferis/paperutils: Support preparation of journal articles from LyX/pdflatex output

context("cv")

if(nzchar(bibtool_path(mustWork=FALSE))){
test_that("clean bibtex file", {
  bibin="testdata/bib/bibdesk.bib"
  expect_is(bibout<-bibdesk_clean(bibin), 'character')
  # modulo line endings I guess
  expect_equivalent(tools::md5sum(bibout), "5451e1662921cddffd7cbc264ce8f587")
})
}