tests/testthat/test-env.R

test_that("copy.env works", {
  a <- new.env()
  b <- new.env()
  a$x <- 1L
  a$y <- "abc"
  b$x <- "x"
  copy.env(a, b)
  expect_equal(b$x, 1L)
  expect_equal(b$y, "abc")
  expect_equal(length(a), 2L)
  expect_equal(length(b), 2L)
})
royratcliffe/canny.tudor documentation built on Oct. 17, 2022, 4:17 a.m.