tests/testthat/test_gatherings.R

In rOpenGov/bibliographica: Bibliographic Data Analysis

context("Gatherings")

test_that("Augmenting values works correctly", {
  expect_equal(map_gatherings("8vo", from = "Standard", to = "Name"), "Octavo")
  expect_equal(map_gatherings(c("8vo", "16mo"), from = "Standard", to = "Name")[[2]], "Sextodecimo")
  expect_equal(as.character(map_gatherings(factor(c("8vo", "16mo"))), from = "Standard", to = "Name")[[2]], "Sextodecimo")
  expect_equal(as.character(levels(order_gatherings(factor(c("2fo", "1to", "8vo")))))[[3]], "8vo")
  expect_equal(as.character(levels(order_gatherings(factor(c("folio", "sheet", "octavo")))))[[1]], "sheet")
  expect_equal(as.character(levels(order_gatherings(factor(c("Folio", "Sheet", "Octavo")))))[[1]], "Sheet")
  expect_equal(order_gatherings(c("1to", NA, "16mo"))[[3]], "16mo")
  expect_true(is.na(order_gatherings(c("1to", NA, "16mo"))[[2]]))            
})