tests/testthat/test_copy_ast.R

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

context("copy")


test_that("copying with inherited copy method sets correct parents", {
  x = Assignment$new(Symbol$new("x"), Complex$new(1+4i))

  y = copy(x)

  # -----
  expect_identical(x, x$read$parent)
  expect_identical(x, x$write$parent)
  expect_identical(y, y$write$parent)
  expect_identical(y, y$read$parent)

  # Make sure x is not parent to y's children and vice-versa.
  expect_false(identical(x, y$write$parent))
  expect_false(identical(y, x$write$parent))
})


test_that("copying sets correct parents on grandchildren", {
  x = Assignment$new(Symbol$new("x"),
    Call$new("+", list(Integer$new(2), Integer$new(3)))
  )

  y = copy(x)

  # -----
  expect_identical(x$read$args, x$read$args[[1]]$parent)
  expect_identical(x$read$args, x$read$args[[2]]$parent)
  expect_identical(y$read$args, y$read$args[[1]]$parent)
  expect_identical(y$read$args, y$read$args[[2]]$parent)

  expect_false(identical(x$read$args, y$read$args[[1]]$parent))
  expect_false(identical(y$read$args, x$read$args[[1]]$parent))
})


test_that("copying a Brace sets correct parents", {
  x = Brace$new(list(
      Assignment$new(Symbol$new("x"), Integer$new(5))
      , Character$new("Hi")
  ))

  y = copy(x)

  # -----
  expect_identical(x, x$contents[[1]]$parent)
  expect_identical(x, x$contents[[2]]$parent)
  expect_identical(y, y$contents[[1]]$parent)
  expect_identical(y, y$contents[[2]]$parent)

  expect_false(identical(x, y$contents[[1]]$parent))
  expect_false(identical(y, x$contents[[1]]$parent))
})


test_that("copying an Invocation sets correct parents", {
  x = Call$new("*", list(Symbol$new("x"), Numeric$new(4.2)))

  y = copy(x)

  # -----
  expect_identical(x, x$args$parent)
  expect_identical(x$args, x$args[[1]]$parent)
  expect_identical(x$args, x$args[[2]]$parent)
  expect_identical(y, y$args$parent)
  expect_identical(y$args, y$args[[1]]$parent)
  expect_identical(y$args, y$args[[2]]$parent)

  expect_false(identical(x$args, y$args[[1]]$parent))
  expect_false(identical(y$args, x$args[[1]]$parent))
})


test_that("copying a Callable sets correct parents", {
  x = Function$new(
    body = Brace$new(Integer$new(8L))
    , x =
    , y = Numeric$new(3.14)
  )

  y = copy(x)

  # -----
  expect_identical(x, x$params$parent)
  expect_identical(x$params, x$params[[1]]$parent)
  expect_identical(x$params, x$params[[2]]$parent)
  expect_identical(y, y$params$parent)
  expect_identical(y$params, y$params[[1]]$parent)
  expect_identical(y$params, y$params[[2]]$parent)

  expect_false(identical(x, y$params$parent))
  expect_false(identical(y, x$params$parent))
})