tests/testthat/test-readers.R

In jkeast/wikitablr: Simple Reader for Wikipedia's Tables

test_that("readers work", {
  #site to use for testing
  url <- "https://en.wikipedia.org/wiki/List_of_colleges_and_universities_in_Massachusetts"

  #test for read_wiki_raw()
  wiki_raw <- read_wiki_raw(url)
  #test that output is a dataframe
  expect_is(wiki_raw, "data.frame")

  #tests for read_wiki_table
  wiki_table <- read_wiki_table(url)
  #test that structure of dataframes from both readers is the same
  expect_identical(dim(wiki_table), dim(wiki_raw))
  #test that structure of data is the same, regardless of whether I remove footnotes
  expect_equal(names(read_wiki_table(url, remove_footnotes = TRUE)), names(read_wiki_table(url, remove_footnotes = FALSE)))

  #tests for read_all_tables()
  #test that structure is list
  expect_is(list_of_tables <- read_all_tables(url), "list")
  #test that length of list is equal to number of tables on page
  expect_equal(length(list_of_tables), 3)
})