1 2 3
test_that("call1 returns an ordered factor", { expect_s3_class(call1(x, y), c("factor", "ordered")) })