tests/testthat/test-get_meta.R

In bambooHR: A Wrapper to the 'BambooHR' API

with_mock_api({
  test_that("Can get tables", {

    local_config()
    # Get tables object
    tables <- get_meta("tables")

    # Tests
    expect_s3_class(tables, "tbl_df")

    expect_equal(nrow(tables), 12)

    expect_equal(tables$parent_alias[1], "jobInfo")
  })
})