tests/testthat/test-s3-ordered.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("ordered", {
  expect_snapshot({
    # ordered
    construct(factor(month.abb, ordered = TRUE))
    construct(factor(month.abb, ordered = TRUE))
    construct(factor(month.abb, ordered = TRUE), opts_ordered("factor"))
    construct(factor(month.abb, ordered = TRUE), opts_ordered("new_ordered"))
    construct(factor(month.abb, ordered = TRUE), opts_ordered("next"))
    construct(factor(month.abb, ordered = TRUE), opts_ordered("integer"))
    construct(factor(month.abb, month.abb, ordered = TRUE))
    construct(factor(month.abb, month.abb, ordered = TRUE), opts_ordered("factor"))
    construct(factor(month.abb, month.abb, ordered = TRUE), opts_ordered("new_ordered"))
    construct(factor(month.abb, levels = c(month.abb, NA), ordered = TRUE, exclude = NULL))
    construct(ordered(c(a="foo")))
  })
})