tests/testthat/test_ie.R

In rOpenGov/bibliographica: Bibliographic Data Analysis

context("Polish ie")

test_that("Year polishing is correct", {

  expect_equal(handle_ie("ireland"), "ireland")
  expect_equal(handle_ie("i.e."), "i.e")  
  expect_equal(handle_ie("1642"), "1642")
  expect_equal(handle_ie("1641. [i.e. 1642]"), "1642")
  expect_equal(handle_ie("[1659]-1659 [i.e. 1660]", harmonize = TRUE), "[1659]-1660")
  expect_equal(handle_ie("MDCXLI. [1641, i.e. 1642]"), "mdcxli. [1642]")
  expect_equal(handle_ie("anno 1599 die februarii"), "anno 1599 die februarii")  

})