tests/testthat/test_gender.R

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")
})
rOpenGov/bibliographica documentation built on April 10, 2022, 8:51 p.m.