tests/testthat/test-primitives.R

In robertzk/objectdiff: Objectdiff

context('primitives')

test_that('it does not break the ls function', {
  x <- 1
  expect_true('x' %in% ls())
  expect_true('x' %in% ls(envir = environment()))
})

test_that('it does not break the ls function with the inherits parameter', {
  x <- 1
  local({
    y <- 1
    expect_true('y' %in% ls())
    expect_false('x' %in% ls())
    expect_true('y' %in% ls(envir = environment()))
    expect_false('x' %in% ls(envir = environment()))
  })
})

test_that('it does not break the rm function', {
  x <- 1
  rm('x', envir = environment(), inherits = FALSE)
  expect_false('x' %in% ls())
})

test_that('it does not break the rm function II', {
  x <- 1
  rm('x')
  expect_false('x' %in% ls())
})

test_that('it does not break parent.env', {
  x <- new.env()
  y <- new.env(parent = x)
  expect_identical(parent.env(y), x)
})

test_that('it does not break parent.env assignment', {
  x <- new.env()
  z <- new.env()
  y <- new.env(parent = x)
  parent.env(y) <- z
  expect_identical(parent.env(y), z)
})