tests/testthat/test.report.export.R

In byapparov/rGoodData: GoodData API Client Package

library(httptest)
library(mockery)

context("Report data")
with_mock(
  authCookie = mock("", cycle = TRUE),
  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),
    build_mock_url = 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),
    build_mock_url = 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),
    build_mock_url = 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")
      })
    }
  )
)