tests/testthat/test-misc_functions.R

In BayesMallows: Bayesian Preference Learning with the Mallows Rank Model

test_that(
  "validate_permutation is correct",
  {
    expect_equal(
      validate_permutation(c(1, 3, 3)),
      FALSE
    )
    expect_equal(
      validate_permutation(c(1, 2, 3)),
      TRUE
    )
    expect_equal(
      validate_permutation(c(1, NA_real_, 3, NA_real_)),
      TRUE
    )
    expect_equal(
      validate_permutation(c(NA_real_, NA_real_, NA_real_)),
      TRUE
    )
  }
)