tests/testthat/test-getcomment.R

In DNH4: Crawling for Daum News Text

context("test-getcomment.R")
with_mock_api({
  test_that("get one comment work", {
    tar <- "https://news.v.daum.net/v/20100101092104056"
    tem <- getComment(tar)
    expect_equal(nrow(tem), 1)
  })
  
  test_that("get zero comment work", {
    tar <- "https://news.v.daum.net/v/20180516222212362"
    tem <- getComment(tar)
    expect(is.null(tem), T)
  })
  
  test_that("get many comment work", {
    tar <- "https://news.v.daum.net/v/20180516162315753"
    tem <- getComment(tar)
    chk <- nrow(tem) > 1
    expect(chk, T)
  })
  
  test_that("get all comment work", {
    tar <- "https://news.v.daum.net/v/20200522093902880"
    tem <- getAllComment(tar)
    chk <- nrow(tem) > 4000
    expect(chk, T)
  })
})