tests/testthat/test-get_time_off_requests.R

In bambooHR: A Wrapper to the 'BambooHR' API

with_mock_api({
  test_that("get timeoff requests works", {

    local_config()
    requests <- get_timeoff_requests("2021-10-01", "2022-02-01", employee_id = "998")

    # Tests
    expect_s3_class(requests, "tbl_df")

    expect_equal(nrow(requests), 2)

    expect_equal(requests$name[1], "A. Person")
  })
})