test_that("write_ris writes a RIS file", {
  df <- data.frame(
    title = "Study Z",
    source = "WOS",
    source_provenance = "WOS;SCOPUS",
    stringsAsFactors = FALSE
  )

  file <- withr::local_tempfile(fileext = ".ris")
  write_ris(df, file = file)
  expect_true(file.exists(file))
})