tests/testthat/test-get-options.R

In r-spatial/RQGIS: Integrating R with QGIS

context("get_options")

test_that("get_options() yields correct output", {
  testthat::skip_on_cran()
  
  expect_output(get_options(alg = "saga:slopeaspectcurvature", intern = FALSE))
  
  expect_is(
    get_options(alg = "saga:slopeaspectcurvature", intern = TRUE),
    "character"
  )
})