Running 'as.listenv.R' [1s]
  Running 'as.vector.R' [1s]
  Running 'get_variable,dimensions.R' [1s]
  Running 'get_variable.R' [1s]
  Running 'lapply.R' [1s]
  Running 'listenv,dimensions.R' [1s]
  Running 'listenv.R' [1s]
  Running 'parse_env_subset,dimensions.R' [1s]
  Running 'parse_env_subset.R' [1s]
  Running 'undim.R' [1s]
  Running 'utils.R' [1s]
Running the tests in 'tests/as.vector.R' failed.
Complete output:
  > library("listenv")
  > 
  > dims <- list(3, c(3, 1), c(2, 3), c(2, 3, 4))
  > 
  > for (dim in dims) {
  +   x <- as.list(1:prod(dim))
  +   if (length(dim) > 1) {
  +     dim(x) <- dim
  +     dimnames(x) <- lapply(dim, FUN = function(n) letters[seq_len(n)])
  +   }
  +   y <- as.listenv(x)
  + 
  +   ## NOTE: is.vector() will always be FALSE for list environments, because:
  +   ##  "is.vector returns TRUE if x is a vector of the specified mode having
  +   ##   no attributes other than names. It returns FALSE otherwise."
  +   ## Source: help("is.vector", package = "base")
  +   stopifnot(!is.vector(y))
  +   stopifnot(is.matrix(x) == is.matrix(y))
  +   stopifnot(is.array(x) == is.array(y))
  + 
  +   for (mode in c("any", "list", "logical", "integer", "double", "complex",
  +                  "character", "raw")) {
  +     message("mode: ", mode)
  + 
  +     ## as.vector():
  +     y <- as.listenv(x)
  +     vx <- as.vector(x, mode = mode)
  +     print(vx)
  +     vy <- as.vector(y, mode = mode)
  +     stopifnot(identical(vy, vx))
  +     stopifnot(is.matrix(vx) == is.matrix(vy))
  +     stopifnot(is.array(vx) == is.array(vy))
  + 
  +     ## as.matrix():
  +     y <- as.listenv(x)
  +     mx <- as.matrix(x)
  +     print(mx)
  +     my <- as.matrix(y)
  +     stopifnot(identical(dim(my), dim(mx)))
  +     stopifnot(identical(dimnames(my), dimnames(mx)))
  +     stopifnot(is.matrix(mx) == is.matrix(my))
  +     stopifnot(is.array(mx) == is.array(my))
  + 
  +     ## as.array():
  +     y <- as.listenv(x)
  +     ax <- as.array(x)
  +     print(ax)
  +     ay <- as.array(y)
  +     stopifnot(identical(dim(ay), dim(ax)))
  +     stopifnot(identical(dimnames(ay), dimnames(ax)))
  +     stopifnot(is.matrix(ax) == is.matrix(ay))
  +     stopifnot(is.array(ax) == is.array(ay))
  +   }
  + }
  mode: any
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
       [,1]
  [1,] 1   
  [2,] 2   
  [3,] 3   
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  mode: list
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
       [,1]
  [1,] 1   
  [2,] 2   
  [3,] 3   
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  mode: logical
  [1] TRUE TRUE TRUE
       [,1]
  [1,] 1   
  [2,] 2   
  [3,] 3   
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  mode: integer
  [1] 1 2 3
       [,1]
  [1,] 1   
  [2,] 2   
  [3,] 3   
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  mode: double
  [1] 1 2 3
       [,1]
  [1,] 1   
  [2,] 2   
  [3,] 3   
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  mode: complex
  [1] 1+0i 2+0i 3+0i
       [,1]
  [1,] 1   
  [2,] 2   
  [3,] 3   
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  mode: character
  [1] "1" "2" "3"
       [,1]
  [1,] 1   
  [2,] 2   
  [3,] 3   
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  mode: raw
  [1] 01 02 03
       [,1]
  [1,] 1   
  [2,] 2   
  [3,] 3   
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  mode: any
  [[1]]
  [1] 1
  
  [[2]]
  [1] 2
  
  [[3]]
  [1] 3
  
  Error: identical(vy, vx) is not TRUE
  Execution halted