tests/testthat/test-99-delete_model.R

In alex23lemm/zementisr: R client for the 'Zementis Server' API

context("delete_model")

test_that("delete_model() returns character vector", {
  skip_on_cran()
  expect_is(delete_model("kyphosis_model"), "character")
  expect_gte(length(delete_model("iris_model")), 0)
})

test_that("delete_model() returns error if 'model_name' is not length one character vector", {
  skip_on_cran()
  expect_error(delete_model(c("iris_model", "kyphosis_model")))
  expect_error(delete_model(1:2))
})

test_that("delete_model() returns error if model name is unknown to the server", {
  skip_on_cran()
  expect_error(delete_model("unknown_model"), err_not_known, fixed = TRUE)
})

file.remove("iris_pmml.xml")
file.remove("kyphosis_pmml.xml")