tests/testthat/test-dw_create_chart.R

In munichrocker/DatawRappr: Provides Access to Datawrapper's API

library(httptest)

with_mock_api({
  test_that("New chart can be created", {
    new_chart <- dw_create_chart()
    expect_s3_class(new_chart, "dw_chart")
    expect_match(new_chart[["content"]][["id"]], "[a-zA-Z0-9_]{5}")
  })
})