tests/testthat/test_bills.R

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

test_that("get_bills", {
  expect_equal(get_bills(start_date = 1060120, end_date = 1070310,  proposer = "孔文吉", verbose = FALSE)$retrieved_number, 9)
})

test_that("get_bills_2", {
  expect_equal(get_bills_2(term = 8, session_period = 1, verbose = FALSE)$retrieved_number, 1155)
  expect_error(get_bills_2(term = "10"),   "Please use numeric format only.")
  expect_error(get_bills_2(term = "10", verbose = TRUE),   "Please use numeric format only.")
})

test_that("Testing get_bills function", {

  # Test if the function returns a list
  result <- get_bills(start_date = 1060120, end_date = 1070310, verbose = FALSE)
  expect_type(result, "list")
  # Test if get_bills throws the expected error for incorrect date format
  expect_error(get_bills(start_date = 1070310, end_date = 1060120, verbose = FALSE),
               "The start date, 2018-03-10, should not be later than the end date, 2017-01-20.")

  # Test if the function correctly handles invalid date format
  expect_error(get_bills(start_date = "10601", end_date = 1070310, verbose = FALSE),
               "Dates should be in numeric format. E.g., 1090101.")
})