expect_setequal() should make more of an effort to display actual values

[hadley]

No description provided.

[MichaelChirico]

+1! I just rewrote a few tests from

expect_setequal(DF$col, c(...))

to

expect_identical(sort(unique(DF$col)), c(...))

The expect_setequal() version is much more readable but the failure mode for expect_identical() is much more actionable (at least in 3e)

DF = data.frame(a = 1:3)
expect_setequal(DF$a, 2:4)
# Error: DF$a[1] absent from 2:4
expect_identical(sort(unique(DF$a)), 2:4)
# Error: sort(unique(DF$a)) (`actual`) not identical to 2:4 (`expected`).

#   `actual`: 1 2 3
# `expected`: 2 3 4