tests/testthat/test-get-options.R

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"
  )
})
jannes-m/RQGIS documentation built on April 19, 2020, 11:41 p.m.