tests/testthat/test_dimension.R

In rOpenGov/bibliographica: Bibliographic Data Analysis

context("Dimension table")

test_that("dimension fill works correctly", {
  dimension.table <- dimension_table()
  expect_equal(fill_dimensions(c(original="12mo", gatherings="12mo", width=13, height=NA), dimension.table)[["height"]], "20")
})


test_that("dimension tables are valid", {
  
  dt <- dimension_table()
  ss <- sheet_sizes()  
  gt <- gatherings_table()
  
  expect_true(all(ss$gatherings %in% gt$Standard))
  expect_true(all(setdiff(colnames(dt), c("height", "NA")) %in% gt$Standard))
  
})


test_that("obl works correctly", {
      expect_equal(polish_dimensions("4to(oblong)")$obl, 1)
      expect_equal(polish_dimensions("obl4°.")$obl, 1)
      expect_equal(polish_dimensions("[obl.1to].")$obl, 1)
      expect_equal(polish_dimensions("[obl.2to.")$obl, 1)
})

test_that("dimension polish works correctly", {
  
  f <- system.file("extdata/tests_dimension_polish.csv", package = "bibliographica")
  synonymes <- read.csv(file=f, header=TRUE, sep="\t", encoding="UTF-8")
  for (i in 1:nrow(synonymes)) {
  
    test_clause <- as.character(synonymes$clause[i])
    test_result <- as.character(synonymes$result[i])
    
    # if (is.na(test_result)) {test_result <- "NA"}
    test_field <- as.character(synonymes$field[i])    

    if ((is.na(test_field)) || (test_field == "")) {test_field <- "gatherings"}
    
    if (is.na(synonymes$expected[i]) || (synonymes$expected[i] == "equal")) {

      pol <- suppressWarnings(polish_dimensions(test_clause))
      expect_equal(as.character(pol[[test_field]]), test_result)
      # print(c(test_clause, test_result, test_field, as.character(polish_dimensions(test_clause)[[test_field]])))
      
    }
    
    # Missing from csv:
    # expect_equal(as.character(polish_dimensions("NA", fill = FALSE, dimtab = NULL)$gatherings), "NA")
  }
  
  
})


#  # TODO Take care later
#  #expect_equal(as.character(polish_dimensions("kotelo 48 x 56 cm.")$gatherings), 4)
#  #expect_equal(as.character(polish_dimensions("obl.1to[-1/2to].")$gatherings), 4)
#  #expect_equal(as.character(polish_dimensions("12to(=8to")$gatherings), 4)
#  #expect_equal(as.character(polish_dimensions("2to(4to)")$gatherings), 4)
#  #expect_equal(as.character(polish_dimensions("1/2to[1to].")$gatherings), 4)
#  #expect_equal(as.character(polish_dimensions("4to[8to].")$gatherings), NA)
#  #expect_equal(as.character(polish_dimensions("8to[16to].")$gatherings), NA)
#  #expect_equal(as.character(polish_dimensions("obl.1to[1/2to].")$gatherings), 4)
#  #expect_equal(as.character(polish_dimensions("obl.1to[1/2to.")$gatherings), 4)
#  #expect_equal(as.character(polish_dimensions("obl.1to1/2to].")$gatherings), 4)