tests/testthat/test-connector-delete.R

In previsionio/prevision-r: 'Prevision.io' R SDK

context("Connector delete")

source("helper-credentials.R")

test_that("delete_connector", {
  expect(delete_connector(get_connector_id_from_name(get_project_id_from_name("PROJECT_TESTU"), "SQL_CONNECTOR_TESTU")) == 200, "delete_connector() doesn't retrieve a 200 status code for SQL_CONNECTOR_TESTU")
  expect(delete_connector(get_connector_id_from_name(get_project_id_from_name("PROJECT_TESTU"), "S3_CONNECTOR_TESTU")) == 200, "delete_connector() doesn't retrieve a 200 status code for S3_CONNECTOR_TESTU")
  expect(delete_connector(get_connector_id_from_name(get_project_id_from_name("PROJECT_TESTU"), "SFTP_CONNECTOR_TESTU")) == 200, "delete_connector() doesn't retrieve a 200 status code for SFTP_CONNECTOR_TESTU")
  expect(delete_connector(get_connector_id_from_name(get_project_id_from_name("PROJECT_TESTU"), "FTP_CONNECTOR_TESTU")) == 200, "delete_connector() doesn't retrieve a 200 status code for FTP_CONNECTOR_TESTU")
  expect(delete_connector(get_connector_id_from_name(get_project_id_from_name("PROJECT_TESTU"), "GCP_CONNECTOR_TESTU")) == 200, "delete_connector() doesn't retrieve a 200 status code for GCP_CONNECTOR_TESTU")
})