tests/testthat/test-func.R

In N2H4: Handling Methods for Naver News Text Crawling

context("function test")

test_that("help functions", {
  url  <-
    "https://n.news.naver.com/mnews/article/001/0009205077?sid=102"
  oid <- get_oid(url)
  expect_equal(oid, "001,0009205077")
  url  <-
    "https://n.news.naver.com/article/028/0002603835"
  oid <- get_oid(url)
  expect_equal(oid, "028,0002603835")
})

test_that("getComment", {
  skip_on_cran()
  url  <-
    "https://n.news.naver.com/mnews/article/001/0009205077?sid=102"
  test <- getComment(url, type = "list")
  test <- test$result$commentList[[1]]
  expect_equal(test$contents, "test")
  url  <-
    "https://n.news.naver.com/mnews/article/015/0002303155?sid=100"
  test <- getComment(url, type = "list")
  test <- test$result$commentList[[1]]
  expect_equal(test$contents, c("test", "test2", "test"))
})

test_that("getAllComment", {
  skip_on_cran()
  url  <-
    "https://n.news.naver.com/mnews/article/015/0002303155?sid=100"
  test <- expect_warning(getAllComment(url))
  expect_equal(test$contents, c("test", "test2", "test"))
})


test_that("getCommentHistory", {
  skip_on_cran()
  url  <-
    "https://n.news.naver.com/mnews/article/001/0009205077?sid=102"
  test <- getComment(url, type = "df")
  dat <- getCommentHistory(url, test$commentNo)
  expect_equal(dat$contents, c("test", "test2","test","test"))
})

test_that("getAllCommentHistory", {
  skip_on_cran()
  url  <-
    "https://n.news.naver.com/mnews/article/001/0009205077?sid=102"
  test <- getComment(url)
  dat <- expect_warning(getAllCommentHistory(url, test$commentNo))
  expect_equal(dat$contents, c("test", "test2","test","test"))
})


test_that("getContent", {
  skip_on_cran()
  url  <-
    "https://n.news.naver.com/mnews/article/001/0009205077?sid=102"
  test <- getContent(url)
  expect_equal(test$url, url)
})

test_that("passSportsnews", {
  skip_on_cran()
  url  <-
    "https://sports.news.naver.com/news?oid=477&aid=0000073768"
  test <- getContent(url)
  expect_equal(test$body, "page is not news section.")

  url <- getContent("https://n.news.naver.com/mnews/article/277/0003204982?sid=106")
  expect_equal(test$body, "page is not news section.")

})

test_that("getCategory", {
  test <- getCategory()
  expect_equal(test, news_category)
})

test_that("getCategoryFresh", {
  test <- getCategory(fresh = TRUE)
  expect_equal(names(test), c("cate_name", "sid1", "sub_cate_name", "sid2"))
  expect_equal(nrow(test), 48)
})

test_that("getMainCategory", {
  skip_on_cran()
  test <- getMainCategory()
  expect_equal(test$sid1, c("100", "101", "102", "103", "105", "104"))
})

test_that("getSubCategory", {
  skip_on_cran()
  test <- getSubCategory()
  expect_equal(test$sid2[1], "264")
})

test_that("getMaxPageNum", {
  skip_on_cran()
  url  <-
    "https://news.naver.com/main/list.naver?sid2=254&sid1=102&mid=shm&mode=LS2D&date=20170427"
  test <- getMaxPageNum(url)
  expect_equal(test, 1)

  url <- "https://news.naver.com/main/list.naver?mode=LS2D&mid=shm&sid2=260&sid1=101&date=20220901"
  test <- getMaxPageNum(url)
  expect_equal(test, 23)

  url <- "https://news.naver.com/main/list.naver?mode=LS2D&sid2=265&sid1=100&mid=shm&date=20220829"
  test <- getMaxPageNum(url)
  expect_equal(test, 108)
})

test_that("getUrlList", {
  skip_on_cran()
  url <-
    "https://news.naver.com/main/list.naver?sid2=267&sid1=100&mid=shm&mode=LS2D&date=20170101"
  test <- getUrlList(url)
  expect_identical(dim(test), c(20L, 2L))
})