test_that("call1 returns an ordered factor", {
  "one very long long long long long long long long long long long long string"
  "one very long long long long long long long long long long long long string"
})