tests/testthat/test-get_metadata.R

In khisr: An R Client to Retrieve Data from DHIS2

test_that("get_metadata functions works", {

    skip_if_no_cred()
    skip_if_offline()

    expect_error(get_metadata())
    expect_error(get_metadata('dataElements', fields = 12))
    expect_warning(get_metadata('dataElements', name %.eq% 'qwerty'))

    expect_no_error(get_metadata('dataElements', name %.like% 'malaria'))

})