tests/testthat/test-scrape_entry.R

In sefabey/eksiR: Scrape Data from eksisozluk.com

context("eksi_scrape_entry ")
test_that("scraping an existing entry works as expected", {
# test 1=====
  library(tidyverse)
  result1 <- eksi_scrape_entry(1) %>%
    select(text)# first ever written eksi entry from the year 1999, 'pena'
  check1 <- readRDS('test_data/result1.rds') %>%
    select(text)#
  expect_equal(result1,check1)
})

test_that("scraping a removed entry works as expected", {
# test 2=====

  result2 <- eksi_scrape_entry(2) # a deleted/removed entry
  check2 <- tibble::tibble(id="2", text=NA, date_time=NA, author_name=NA, author_id=NA, favourite_count=NA, title_text=NA, title_id=NA, title_slug=NA, error_message='Error in open.connection(x, "rb") : HTTP error 404.
')
  expect_equal(result2,check2)
})

test_that("exporting an existing entry to a .csv file works as expected", {
# test 3======
  # tests 2 aspects:
  # 1. Exported csv file has the correct name.
  # 2. Exported csv file has the correct size.
  eksi_scrape_entry(76805451, export_csv = T)
  result3 <- file.size("eksi_entry_no_76805451.csv")
  check3 <- 676
  expect_equal(result3, check3)
})

test_that("exporting deleted/removed entry to a csv file file works as expected", {
  # test 4======
  # tests 2 aspects:
  # 1. Exported csv file has the correct name.
  # 2. Exported csv file has the correct size.
  eksi_scrape_entry(3, export_csv = T)
  result4 <- file.size("eksi_entry_no_3.csv")
  check4 <- 184
  expect_equal(result4, check4)
})