tests/testthat/test_parse_names.R

In skvrnami/listr: Package for processing candidate lists data

context("Test name parsing")

test_that("Names are parsed correctly", {
    expect_equal(split_full_name("Novák Karel"),
                 list("Karel", "Novák"))
    expect_equal(split_full_name("Novák Adam", reversed = TRUE, tolerance = 0),
                 list("Adam", "Novák"))
    expect_equal(split_full_name("Petr Pavel", reversed = FALSE, tolerance = 0),
                 list("Petr", "Pavel"))
    expect_equal(split_full_name("Jana Smiggels Kavková", reversed = FALSE),
                 list("Jana", "Smiggels Kavková"))
    expect_equal(split_full_name("Augustin Karel Andrle Sylor", FALSE),
                 list("Augustin Karel", "Andrle Sylor"))
})

test_that("Add names to df works", {
    expect_equal(ncol(add_names_to_df(data.frame(full_name = "Karel Novák"),
                                      "full_name")), 3)
})