tests/testthat/test-data.R

In S7: An Object Oriented System Meant to Become a Successor to S3 and S4

describe("S7_data", {
  text <- new_class("text", class_character)
  it("retrieves .data", {
    x <- text("hi")
    expect_equal(S7_data(x), "hi")
  })
  it("strips properties", {
    text <- new_class("text", class_character, properties = list(x = class_integer))
    x <- text("hi", x = 10L)
    expect_equal(attributes(S7_data(x)), NULL)
  })
  it("preserves non-property attributes when retrieving .data", {
    val <- c(foo = "hi", bar = "ho")
    expect_equal(names(S7_data(text(val))), names(val))
  })
  it("lets you set data", {
    val <- c(foo = "hi", bar = "ho")
    x <- text("foo")
    S7_data(x) <- "bar"
    expect_equal(S7_data(x), "bar")
  })
})