tests/testthat/test-struct.R

In jmbarbone/jordan: Miscellaneous, Analytic R Kernels

test_that("struct() works", {
  expect_equal(
    struct(1, "foo", a = 1),
    structure(1, class = "foo", a = 1)
  )

  # struct() doesn't apply class as an attribute
  expect_failure(
    expect_equal(
      struct("a", "character"),
      structure("a", class = "character")
    )
  )

  x <- struct(1, "foo", at1 = 1, at2 = 2)
  res <- struct(x, "foo", .keep_attr = "at2")
  exp <- struct(1, "foo", at2 = 2)
  expect_identical(res, exp)
})

test_that("struct() works for factors", {
  expect_error(
    struct(1, class = "factor", levels = "a"),
    class = "simpleError",
    'adding class "factor" to an invalid object'
  )

  expect_identical(
    struct(1L, class = "factor", levels = c("a", "b")),
    structure(1, class = "factor", levels = c("a", "b"))
  )
})

test_that("NULL handling", {
  expect_identical(struct(NULL, NULL), list())
  expect_identical(struct(NULL, "foo"), structure(list(), class = "foo"))
})

test_that("examples", {
  expect_warning(structure(NULL))
  expect_identical(wuffle(structure(NULL)), NULL)
  expect_identical(struct(NULL, NULL), list())

  x <- NULL
  attributes(x) <- NULL
  expect_null(x)
  attributes(x) <- list()
  expect_identical(x, list())
})

test_that("struct() overwrites attributes", {
  x <- struct(list(), class = "foo", a = 1L)
  res <- struct(list(), class = "foo", a = 2L, .keep_attr = TRUE)
  expect_identical(exattr(res, "a"), 2L)
})