tests/testthat/test_meeting.R

In yl17124/legisTaiwan: An Interface to Access Taiwan Legislative API in R

test_that("get_meetings", {
  expect_equal(get_meetings(start_date = 1050120, end_date = 1050210, verbose = FALSE)$data$smeeting_date, "105/02/01")
  expect_equal(nrow(get_meetings(start_date = 1040120, end_date = 1050310, verbose = TRUE)$data), 807)
  expect_error(get_meetings(start_date = 1040101, end_date = 1040102, verbose = FALSE), "Query returned no data.")
})

test_that("get_caucus_meetings", {
  expect_equal(get_caucus_meetings(start_date = "106/10/20", end_date = "107/03/10", verbose = FALSE)$retrieved_number, 27)
  expect_equal(get_caucus_meetings(start_date = "106/10/20", end_date = "107/03/10", verbose = FALSE)$retrieved_number,27)
})

# test_that("get_speech_video", {
#   expect_equal(get_speech_video(start_date = "105/10/20", end_date = "109/03/10")$retrieved_number, 547)
#   expect_equal(get_speech_video(start_date = "105/10/20", end_date = "109/03/10", verbose = FALSE)$retrieved_number, 547)
#   expect_error(get_speech_video(start_date = "104/01/01", end_date = "104/01/02", verbose = FALSE), "The query is unavailable.")
#
# })

test_that("get_public_debates", {
  expect_equal(get_public_debates(term = 10, session_period = 1)$retrieved_number, 107)
  # expect_equal(get_public_debates(term = 10, session_period = 1, verbose = FALSE)$retrieved_number, 107)
  expect_error(get_public_debates(term = "10"),   "use numeric format only.")
  # expect_error(get_public_debates(term = "10", verbose = TRUE),   "use numeric format only.")
  # expect_equal(get_public_debates(term = NULL, verbose = TRUE)$title, "the records of the questions answered by the executives")
  # expect_message(get_public_debates(c(10,11)),
  #                "The API is unable to query multiple terms and the retrieved data might not be complete.")
  # expect_error(get_public_debates(term = 30),  "The query is unavailable.")

  })


# test_that("get_committee_record", {
#   expect_equal(get_committee_record(term = 8, session_period= 1, verbose = FALSE)$retrieved_number, 613)
#   expect_equal(get_committee_record(term = 8, session_period= 2, verbose = FALSE)$retrieved_number, 633)
#   expect_equal(get_committee_record(term = 8, session_period= 2, verbose = TRUE)$title, "the records of reviewed items in the committees")
#   expect_error(get_committee_record(term = 2),   "The query is unavailable.")
#   # expect_message(get_committee_record(c(10,11)),
#   #                "The API is unable to query multiple terms and the retrieved data might not be complete.")
# })

# test_that("get_committee_record", {
#   expect_equal(get_committee_record(term = 10, session_period= 1, verbose = FALSE)$retrieved_number, 4844)
#   expect_equal(get_committee_record(term = 10, session_period= 2, verbose = TRUE)$title, "the records of reviewed items in the committees")
#   expect_error(get_committee_record(term = 2),   "The query is unavailable.")
# })