revdep/checks.noindex/journalabbr/old/journalabbr.Rcheck/tests/testthat/test-roxytest-testexamples-replace_field.R

In mtfairbanks/gdt: Tidy Interface to 'data.table'

# Generated by roxytest: Do not edit by hand!

context("File R/replace_field.R: @testexamples")

test_that("Function replace_field_journal() @ L26", {
  
  csvpath <- system.file("extdata", "myabbr.csv", package = "journalabbr", mustWork = TRUE)
  abbrtable_user <- add_abbrtable(file = csvpath, header = FALSE, sep = ";")
  colnames(abbrtable_user)
  
  file <- system.file("extdata", "testfile_2.bib", package = "journalabbr", mustWork = TRUE)
  dt <- read_bib2dt(file)
  
  newdt <- replace_field_journal(dt, abbrtable_user)
  newdt1 <- replace_field_author(dt, author.connect = "and")
  newdt2 <- replace_field_author(dt, author.connect = "&")
  
  expect_true(is.data.table(newdt) && is.data.table(newdt1) &&  is.data.table(newdt2))
})