tests/testthat/test_cite.R

In cboettig/knitcitations: Citations for 'Knitr' Markdown Files

context("citations")

library("knitcitations")
cleanbib()

test_that("we can cite by doi", {
   testthat::skip_on_cran()
  testthat::skip_if_not_installed("bibtex")
  
   a <-  citep("10.1093/sysbio/sys025")
   testthat::expect_match(a, "Vos")
   cleanbib()
})

test_that("we can cite with a crossref search", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed("bibtex")
  
   a <-  citep("Vos NeXML 2012")
   expect_match(a, "Vos")
  
   ## Works interactively but not in devtools::test()?
   #b <- bibliography()
   #expect_identical(b['Vos_2012']$doi, "10.1093/sysbio/sys025")
   #cleanbib()
})


test_that("We can cite by R package / bibentry", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed("bibtex")
  
          a <- citet(citation("testthat"))
          expect_match(a, "Wickham")

          b <- bibliography()
          expect_equal(sum(grepl("testthat",sapply(b, function(x) x$title))), 1)
   cleanbib()

})

test_that("We create unique keys when necessary", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed("bibtex")
  
  cite_options(citation_format = "pandoc")
  a <- citet("10.1098/rspb.2012.2085")
  b <- citet("10.1098/rsif.2012.0125")
  expect_false(identical(a,b))

  bib <- bibliography()
  expect_false(identical(bib[1]$key, bib[2]$key))
  cleanbib()
})


test_that("We create textual citations when necessary in text format", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed("bibtex")
  
  cite_options(citation_format = "text")
  a <- citet("10.1098/rspb.2012.2085")
  b <- citet("10.1098/rsif.2012.0125")
  expect_false(identical(a,b))

})

test_that("We can do trivial things", {
  expect_equal(1+1, 2)
})



test_that("we can cite by doi and call bibliography with no default style", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed("bibtex")
  
  a <-  citep("10.1093/sysbio/sys025")
  testthat::expect_true(grepl("Vos", a))
  bibliography() 
  cleanbib()
})


# entry entered as doi, later as doi again, later as bibentry, later as bibkey.  Does this avoid duplicates?