# TRUE length mismatch but longer allowed

for (i in 1:50) {
    rec.env.cpy$a <- new.env()
    rec.env.cpy <- rec.env.cpy$a
}

plst1 <- pairlist(a = character(), b = list(), c = NULL)

plst2 <- pairlist(a = "hello", b = iris, c = matrix(1:3))

plst3 <- pairlist(a = "hello", b = iris)

plst4 <- pairlist(a = "hello", b = iris, c = logical(1L), d = logical(1L))

plst5 <- pairlist(a = character(), b = list(), integer())

plst6 <- pairlist(a = character(), b = list(), boogey = 1:3)

plst7 <- pairlist(a = character(), boogey = 1:3, b = list())

[1] "`length(plst3)` should be 3 (is 2)"

[1] "`length(plst4)` should be 3 (is 4)"

`names(plst5)[[3L]]` should be "c" (is "")

`names(plst7)[[2L]]` should be "b" (is "boogey")

[1] "`names(plst7)[[2L]]` should be \"b\" (is \"boogey\")"

env7 <- list2env(list(a = character(), b = plst1))

env8 <- list2env(list(a = letters[1:3], b = plst2))

env9 <- list2env(list(a = letters[1:3], b = plst5))

`names(env9$b)[[3L]]` should be "c" (is "")

env.nest.1 <- env.nest.1.cpy <- new.env()

env.nest.2 <- env.nest.2.cpy <- new.env()

for (i in 1:26) {
    env.nest.1.cpy[[letters[i]]] <- new.env()
    env.nest.1.cpy <- env.nest.1.cpy[[letters[i]]]
    env.nest.2.cpy[[letters[i]]] <- new.env()
    env.nest.2.cpy <- env.nest.2.cpy[[letters[i]]]
}

alike(env.nest.1, env.nest.2, settings = vetr_settings(env.depth.max = 16))

`alike` environment stack exhausted at recursion depth 16; unable to recurse any further into environments; see `env.depth.max` parameter for `vetr_settings`.

Warning in alike(env.nest.1, env.nest.2, settings = vetr_settings(env.depth.max = 16)) :
  `alike` environment stack exhausted at recursion depth 16; unable to recurse any further into environments; see `env.depth.max` parameter for `vetr_settings`.

`env.nest.1` should be the global environment

[1] "`env.nest.1` should be the global environment"

`quote(x + y)[[2]]` should be "double" (is "symbol")

[1] "`quote(x + y)[[2]]` should be \"double\" (is \"symbol\")"

alike(quote(fun(1 + 1)), quote(fun(x + y, 9)))

`quote(fun(x + y, 9))[[2]][[2]]` should be "double" (is "symbol")