tests/testthat/helper-expectations.R

In lbartnik/defer: Deferred function evaluation

expect_setequal <- function (object, expected, info = NULL, label = NULL, expected.label = NULL)
{
  lab_act <- testthat:::quasi_label(rlang::enquo(object), label)
  lab_exp <- testthat:::quasi_label(rlang::enquo(expected), expected.label)

  expect_equal(sort(unique(object)), sort(unique(expected)), info = info, label = lab_act, expected.label = lab_exp)
}