tests/testthat/test-anlz_refs.R

In tbep-tech/tbeptools: Data and Indicators for the Tampa Bay Estuary Program

test_that("Checking anlz_refs", {

  path <- 'https://raw.githubusercontent.com/tbep-tech/tbep-refs/master/tbep-refs.csv'
  result <- anlz_refs(path) %>%
    .[(length(.) - 3):length(.)]

  expect_equal(result, c("\tpages={},", "\tmisc={},", "\turl={https://tbeptech.org/TBEP_TECH_PUBS/1992/TBEP_01_92_FrameworkForCharacterization.pdf},",
                         "}\n"))
})