tests/testthat/test-utils-bib.R

test_that("get_bib_month", {
  x <- list(month = "1")
  expect_identical(get_bib_month(x), "jan")

  x <- list("date-published" = "2027-02-10")

  expect_identical(get_bib_month(x), "feb")
})

Try the cffr package in your browser

Any scripts or data that you put into this service are public.

cffr documentation built on Jan. 12, 2026, 9:08 a.m.