test-get_nationality.R

context("test-get_nationality")

test_that("retrieving nationality works", {
    filename_raw <- "article-4-raw.html"
    html <- readChar(filename_raw, file.info(filename_raw)$size)
    expected <- ("Russian")
    actual <- get_nationality(html)

    expect_equal(expected, actual)
})