tests/testthat/copy_cfg.R

In nick-ulle/ast: Low-level Static Analysis Tools for R Code

context("ControlFlowGraph$copy")


test_that("copying copies fields with R6 objects", {
  x = ControlFlowGraph$new()
  x_priv = environment(x$initialize)$private

  y = x$copy()
  y_priv = environment(y$initialize)$private

  # -----
  expect_false(identical(x[[1]], y[[1]]))
})