tests/testthat/test-s3-constructive_options.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("constructive_options", {
  expect_snapshot({
    construct(opts_Date("as.Date"))
    construct(opts_Date("as.Date"), opts_constructive_options("next"))
    construct(opts_Date("new_date"))
    construct(opts_Date(origin = "2020-01-01"))
    construct(opts_data.frame("read.table"))
  })
})