tests/testthat/test_sort_bib.R

context("parse bib files")

test_that("sort bib correctly sorts", {
  if (file.exists("./sort-bib/correctly-sorted-out.bib")){
    file.remove("./sort-bib/correctly-sorted-out.bib")
  }
  reorder_bib("./sort-bib/incorrectly-sorted.bib",
              "./sort-bib/correctly-sorted-out.bib")
  expect <- readLines("./sort-bib/correctly-sorted.bib",
                      encoding = "UTF-8",
                      warn = FALSE)
  actual <- readLines("./sort-bib/correctly-sorted-out.bib",
                      encoding = "UTF-8",
                      warn = FALSE)
  expect_identical(actual, expect)
})

Try the TeXCheckR package in your browser

Any scripts or data that you put into this service are public.

TeXCheckR documentation built on May 29, 2024, 7:20 a.m.