tests/testthat/test-delete-dataset.R

In MTES-MCT/didoscalim: Charger des données dans DiDo

dataset <- add_or_update_dataset(
  title = "didoscalim ds check get_dataset works",
  description = "test",
  topic = "Transports",
  frequency = "unknown",
  temporal_coverage_start = "2020-01-01",
  temporal_coverage_end = "2020-12-31",
)


test_that("delete works", {
  skip_unless_dev_env()

  expect_true(delete_dataset(dataset$id), "delete ok")
})

test_that("check delete_dataset errors on missing param", {
  expect_error(delete_dataset(), "obligatoire")
})

test_that("check delete_dataset errors on missing param", {
  expect_error(delete_dataset("aaa"), "pas du type attendu")
})