tests/testthat/test-query_scraping_funs.R

In tijoalca/pigeonscraper: Scrapes and shares race data from the American Racing Pigeons Union Website

context("Test querying builder and craping functions")

# Loading previously scrapped query table

css_query_tbl <- readRDS("css_query_tbl.rds")


test_that("test that query builder oytputs a data frame", {
  expect_s3_class(css_query_tbl, "data.frame")
})


test_that("test that query builder oytputs a data frame", {
  expect_s3_class(css_query_tbl, "data.frame")
})

test_that("query contains numeric on the years column", {
  query_years <- css_query_tbl$year %>%
    readr::parse_number() %>%
    unique()
  expect_true(is.numeric(query_years))
})

test_that("query contains years on the years column", {
  query_years <- css_query_tbl %>%
    dplyr::select(year) %>%
    .$year
  query_years <- readr::parse_number(query_years) %>%
    unique()
  expect_true(query_years %in% c(2010:2020) %>% unique)
})