test_that("can set options", {
  expect_no_error(old <- cdo_options_set("-L"))

  expect_null(unlist(old))

  expect_equal(cdo_options_get(), "-L")

  old <- cdo_options_clear()
  expect_equal(unname(unlist(old)), "-L")
  expect_null(cdo_options_get())
})