tests/testthat/test_extract_meta_data.R

In mediacloudr: Wrapper for the 'mediacloud.org' API

context("Extract Meta Data")

# invalid inputs ---------------------------------------------------------------
testthat::test_that(
  "test that function returns error if no html document provided", {
    testthat::expect_error(mediacloudr::extract_meta_data(),
                           regexp = "Please define a html document.")
  })

# test html document -----------------------------------------------------------
html_doc <- mediacloudr::meta_data_html
meta_data <- list(
  open_graph = list(
    url = "https://github.com/jandix/mediacloudr",
    type = "article",
    title = "Hello world!",
    image = "https://images.pexels.com/photos/113338/pexels-photo-113338.jpeg?auto=compress&cs=tinysrgb&dpr=2&h=650&w=940",
    description = "mediacloudr hello world test file"
  ),
  twitter = list(
    url = "https://github.com/jandix/mediacloudr",
    title = "Hello world!",
    description = "mediacloudr hello world test file",
    image = "https://images.pexels.com/photos/113338/pexels-photo-113338.jpeg?auto=compress&cs=tinysrgb&dpr=2&h=650&w=940",
    image_alt = "Trees",
    card = "summary_large_image"
  ),
  native = list (
    title = "Hello world!",
    description = "mediacloudr hello world test file",
    image = "https://images.pexels.com/photos/113338/pexels-photo-113338.jpeg?auto=compress&cs=tinysrgb&dpr=2&h=650&w=940",
    thumbnail = "https://images.pexels.com/photos/113338/pexels-photo-113338.jpeg?auto=compress&cs=tinysrgb&dpr=2&h=50"
  )
)
testthat::test_that(
  "test that function parses the document correct", {
    testthat::expect_equal(mediacloudr::extract_meta_data(html_doc = html_doc), meta_data)
  })

# test result set --------------------------------------------------------------
testthat::test_that(
  "test that function returns extactly 100 rows", {
    testthat::skip_if(nchar(Sys.getenv("MEDIACLOUD_API_KEY")) == 0,
                      message = "API key not available in environment. Skipping test.")
    example_result <- mediacloudr::get_story_list()
    testthat::expect_equal(nrow(example_result), 100,
                           info = paste0("100 row expected, but got ", nrow(example_result), " row(s)."))
  })
testthat::test_that(
  "test that function returns 15 columns", {
    testthat::skip_if(nchar(Sys.getenv("MEDIACLOUD_API_KEY")) == 0,
                      message = "API key not available in environment. Skipping test.")
    example_result <- mediacloudr::get_story_list()
    testthat::expect_equal(ncol(example_result), 15,
                           info = paste0("15 cols expected, but got ", ncol(example_result), " col(s)."))
  })