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"
  )
})

Try the RQGIS package in your browser

Any scripts or data that you put into this service are public.

RQGIS documentation built on May 2, 2019, 8:23 a.m.