Newer
Older
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)
})