tests/testthat/test-s3-dm.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("dm", {
  expect_snapshot({
    # simple dm
    construct(dm::dm(cars1 = head(cars,2), cars2 = tail(cars,2)), check = FALSE)
    # skip because unstable
    # construct(dm::dm(cars1 = head(cars,2), cars2 = tail(cars,2)), opts_dm("next"))
    # construct(dm::dm(cars1 = head(cars,2), cars2 = tail(cars,2)), opts_dm("list"))

    # complex dm, using existing data
    construct(dm::dm_pixarfilms(), data = "pixarfilms", check = FALSE)
  })
})