tests/testthat/test-set_model_options.R

In BayesMallows: Bayesian Preference Learning with the Mallows Rank Model

test_that("set_model_options works", {
  expect_error(
    set_model_options(metric = "manhattan"),
    "'arg' should be one of"
  )

  expect_error(
    set_model_options(error_model = "sturm liouville"),
    "'arg' should be one of"
  )

  expect_s3_class(set_model_options(), "BayesMallowsModelOptions")
})