context("Build accuracy")
test_that("Invalid data items", {
expect_warning(build_b_call(data_item = "test", api_key = "test"))
expect_warning(build_remit_call(data_item = "test", api_key = "test"))
expect_warning(build_legacy_call(data_item = "test", api_key = "test"))
})
test_that("Missing arguments", {
expect_error(build_call())
expect_error(build_b_call())
expect_error(build_remit_call())
expect_error(build_legacy_call())
})
test_that("Build output", {
expect_true(is.list(build_call(data_item = "B1030", api_key = "test")))
expect_true(is.list(build_b_call(data_item = "B1030", api_key = "test")))
expect_true(is.list(build_remit_call(data_item = "MessageDetailRetrieval", api_key = "test")))
expect_true(is.list(build_legacy_call(data_item = "TEMP", api_key = "test")))
expect_true(build_call(data_item = "B1720", api_key = "test", settlement_date = "2018-06-12", period = 10)$url == "https://api.bmreports.com/BMRS/B1720/v1?APIKey=test&SettlementDate=2018-06-12&Period=10&ServiceType=csv")
})
test_that("Invalid service type", {
expect_warning(build_call(data_item = "MessageDetailRetrieval", api_key = "test", message_id = "1", service_type = "csv"))
expect_error(build_call(data_item = "B1720", api_key = "test", settlement_date = "2018-06-12", period = "1", service_type = "test"))
})
test_that("Incorrect parameters", {
expect_warning(build_call(data_item = "B1720", api_key = "test", from_date = "2018-06-12"))
expect_warning(build_call(data_item = "MessageDetailRetrieval", api_key = "test", settlement_date = "2018-06-12"))
expect_warning(build_call(data_item = "TEMP", api_key = "test", message_id = "1"))
expect_error(build_call(data_item = "B1720", api_key = "test", period = 60))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.