File: test_copyEnv.R

package info (click to toggle)
r-bioc-biobase 2.66.0-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 4,136 kB
  • sloc: ansic: 642; makefile: 3
file content (14 lines) | stat: -rw-r--r-- 403 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
basic_test <- function() {
    env1 <- new.env(hash=TRUE, parent=emptyenv())
    env1$a <- 1:3
    env1$b <- "foo"
    env1[[".hidden"]] <- 3.1
    z <- copyEnv(env1)
    checkEquals(env1$a, z$a)
    checkEquals(env1$b, z$b)
    checkTrue(!exists(".hidden", z))
    z <- copyEnv(env1, all.names=TRUE)
    checkEquals(env1[[".hidden"]], z[[".hidden"]])
    env1$a[1] <- 10L
    checkEquals(1L, z$a[1])
}