tests/testthat/test-s3-array.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("array", {
  expect_snapshot({
    construct(as.array(month.abb))
    construct(as.array(month.abb), opts_array("next"))
    construct(array(1:3, c(2,4)))
    construct(structure(1, class = "array"))
    construct(structure(1, class = "array", dim = 1))
  })
})

test_that("classed array", {
  expect_snapshot({
    construct(structure(array(1:27, c(3,3,3)), class = "a"))
  })
})