tests/testthat/test_gender.R

In rOpenGov/bibliographica: Bibliographic Data Analysis

context("Gender")

test_that("Gender assignments", {
  #gendermap <- read_mapping(system.file("inst/extdata/gendermap.csv", package = "bibliographica"), sep = "\t", from = "name", to = "gender")
  #expect_equal(get_gender("aapo", gendermap), "male")
  #expect_equal(get_gender("zurildia", gendermap), "female")
})