tests/testthat/test-attribute_scrap.R

In feddelegrand7/ralger: Easy Web Scraping

test_that("attribute_scrap works similar to rvest", {

  testthat::skip_on_cran()


  link <- "https://ropensci.org/"

  links <- link %>%
    read_html() %>%
    html_nodes("a") %>%
    html_attr("class")

  expect_equal(links, attribute_scrap(link = link,
                                      node = "a",
                                      attr = "class"))

})


test_that("expect error when wrong parameters provided or missing", {


  expect_error(

    attribute_scrap(link = 2323,
                    node = "a",
                    attr = "class")
  )

  expect_error(

    attribute_scrap(link = TRUE,
                    node = "a",
                    attr = "class")
  )

  expect_error(

    attribute_scrap(link = "https://ropensci.org/",
                    attr = "class")
  )


  expect_error(

    attribute_scrap(link = "https://ropensci.org/",
                    attr = "class",
                    node = FALSE)
  )



})



test_that("expecting the function to return a character vector superior than 1", {

  skip_on_cran()

  link <- "https://ropensci.org/"

  expect_type(attribute_scrap(link = link,
                              node = "a",
                              attr = "class"),
              "character")

  expect_gt(length(attribute_scrap(link = link,
                                   node = "a",
                                   attr = "class")),
            0)

})