1 2 3 4
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" })