tests/testthat/test-multiline.R

In romainfrancois/bibtex: Bibtex Parser

test_that("Multiline from file", {
  file <- system.file("bib/xampl_multiline.bib", package = "bibtex")

  out <- read.bib(file)

  expect_snapshot_output(toBibtex(out))
})

test_that("Multiline string", {
  file <- system.file("bib/multiline_string.bib", package = "bibtex")

  out <- read.bib(file)

  expect_snapshot_output(toBibtex(out))
})