`1:3 + 0.01` should be type "integer-like" (is "double")

[1] "`1:3 + 0.01` should be type \"integer-like\" (is \"double\")"

`seq(1/6, 1, 1/6) * 6` should be type "integer-like" (is "double")

[1] "`seq(1/6, 1, 1/6) * 6` should be type \"integer-like\" (is \"double\")"

`letters[1:4]` should be type "integer-like" (is "character")

[1] "`letters[1:4]` should be type \"integer-like\" (is \"character\")"

alike(letters[1:4], c("hello", "goodbye", "ba", "da"))

`NULL` should be type "integer-like" (is "NULL")

[1] "`NULL` should be type \"integer-like\" (is \"NULL\")"

`names(c(1, 2))` should be type "character" (is "NULL")

[1] "`names(c(1, 2))` should be type \"character\" (is \"NULL\")"

`"hello"` should be type "integer-like" (is "character")

[1] "`\"hello\"` should be type \"integer-like\" (is \"character\")"

# should not match because template has more detail

`lst.4[[2]][[2]]` should be length 2 (is 0)

lst.6 <- list(1, list(a = 1, b = 2, c = list(d = "hello")))

`lst.6[[2]]$c$d` should be type "numeric" (is "character")

[1] "`lst.6[[2]]$c$d` should be type \"numeric\" (is \"character\")"

`lst.5[[2]]$c$d` should be type "character" (is "double")

[1] "`lst.5[[2]]$c$d` should be type \"character\" (is \"double\")"

{lst.6.1[[2]]$`c d`$d} should be type "numeric" (is "character")

[1] "{lst.6.1[[2]]$`c d`$d} should be type \"numeric\" (is \"character\")"

{lst.5.1[[2]]$`c d`$d} should be type "character" (is "double")

[1] "{lst.5.1[[2]]$`c d`$d} should be type \"character\" (is \"double\")"

alike(pairlist(a = 1, b = "character"), pairlist(a = 1, b = letters))

`pairlist(a = 1, b = letters)$b` should be length 1 (is 26)

[1] "`pairlist(a = 1, b = letters)$b` should be length 1 (is 26)"

`pairlist(1, letters)[[2]]` should be length 1 (is 26)

[1] "`pairlist(1, letters)[[2]]` should be length 1 (is 26)"

[1] "`1:3` should be \"NULL\" (is \"integer\")"

alike(list(NULL, NULL), list(list(list(1, 2, 3)), 1:25))

[1] "`list(1, 2)` should be length 1 (is 2)"

alike(matrix(integer(), ncol = 7), matrix(1:21, nrow = 3))

alike(matrix(integer(), nrow = 3), matrix(1:21, nrow = 3))