tests/testthat/test-search_speech.R

context("test-search_speech.R")

test_that("multiplication works", {
  dat <- search_speech(keyword = "NGO", order = 1)
  expect_equal(dat$date[1], "1998.06.06")
})
forkonlp/presidentSpeechKr documentation built on June 9, 2021, 6:26 p.m.