Nothing
library(httptest)
library(mockery)
Sys.setenv(GOODDATA_DOMAIN = "test.com")
Sys.setenv(GOODDATA_PROJECT = "dummy")
context("Report data")
with_mock(
authCookie = mock("", cycle = T),
with_mock_API({
test_that("Report definition is extracted correctly", {
res <- getLastDefinition(810164L)
# This is the last value in the provided fake file.
expect_identical(res, 1090631L)
})
test_that("Correct report URI is returned", {
res <- getReportRawUri(111111L)
expect_identical(res, "test.com/test/uri")
})
})
)
context("Error Codes")
test_that("Error code is processed correctly",
with_mock(
status_code = mock(401L, cycle = T),
buildMockURL = mock("test.com/401.json", cycle = T),
authCookie = mock("", cycle = T),
with_mock_API({
expect_error(res <- getLastDefinition(810164L), regex = "401")
expect_error(res <- getReportRawUri(810164L), regex = "401")
expect_error(res <- getReportData("test.com/dummy"), regex = "401")
})
)
)
test_that("Test that data is extracted correctly from large report",
with_mock(
status_code = mock(201L, 201L, 200L),
buildMockURL = mock("test.com/report-data-201.json",
"test.com/report-data-201.json",
"test.com/report-data-200.csv"),
http_type = mock("application/json", "application/json", "text/csv"),
authCookie = mock("", cycle = T),
{
with_mock_API({
expect_output(res <- getReportData("test.com/dummy", 0.012), regexp = "0.012")
expect_true(is.data.table(res))
expect_identical(nrow(res), 2L)
})
}
)
)
test_that("Test bad response with text message",
with_mock(
status_code = mock(503L, cycle = T),
buildMockURL = mock("test.com/503.txt", cycle = T),
http_type = mock("text", cycle = T),
authCookie = mock("", cycle = T),
{
with_mock_API({
expect_error(res <- getLastDefinition(5232L), regexp = "503")
})
}
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.