inst/tinytest/test_slots.R

In WinVector/wrapr: Wrap R Tools for Debugging and Parametric Programming

test_slots <- function() {
  # from help("slot")
  setClass("track", slots = c(x="numeric", y="numeric"))
  myTrack <- new("track", x = -4:4, y = exp(-4:4))


  expect <- myTrack@x
  v1 <- myTrack %.>% .@x
  expect_equal(expect, v1)

  let(
    c(X = 'x'),
    v2 <- myTrack@X
  )
  expect_equal(expect, v2)

  invisible(NULL)
}

test_slots()