# should not match because template has more detail

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))

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

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

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

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

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

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

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

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

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

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

`matrix(1:21, nrow = 3)` should be type "character" (is "integer")

[1] "`matrix(1:21, nrow = 3)` should be type \"character\" (is \"integer\")"

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

`matrix(1:21, nrow = 3)` should have 4 rows (has 3)

[1] "`matrix(1:21, nrow = 3)` should have 4 rows (has 3)"

alike(matrix(integer(), ncol = 3, dimnames = list(NULL, c("R", 
    "G", "B"))), matrix(1:21, ncol = 3, dimnames = list(NULL, 
    c("R", "G", "B"))))

alike(matrix(integer(), nrow = 3, dimnames = list(c("R", "G", 
    "B"), NULL)), matrix(1:21, ncol = 3, dimnames = list(NULL, 
    c("R", "G", "B"))))

`matrix(1:21, ncol = 3, dimnames = list(NULL, c("R", "G", "B")))` should have 3 rows (has 7)

[1] "`matrix(1:21, ncol = 3, dimnames = list(NULL, c(\"R\", \"G\", \"B\")))` should have 3 rows (has 7)"