`array(rep(TRUE, 8), rep(2, 3))` should be "matrix" (is "array")

[1] "`array(rep(TRUE, 8), rep(2, 3))` should be \"matrix\" (is \"array\")"

obj.tpl <- structure(TRUE, class = letters[1:3])

# In order for objects to be alike, they must share a family tree, not just
# a common class

obj.cur.1 <- structure(TRUE, class = c("x", letters[1:3]))

obj.cur.2 <- structure(TRUE, class = c(letters[1:3], "x"))

`class(obj.cur.2)[2]` should be "a" (is "b")

# You can compare language objects; these are alike if they are self
# consistent; we don't care what the symbols are, so long as they are used
# consistently across target and current:
# TRUE, symbols are consistent (adding two different symbols)

`quote(a - b)[[1]]` should be a call to `+` (is a call to `-`)

[1] "`quote(a - b)[[1]]` should be a call to `+` (is a call to `-`)"

[1] "`quote(a + a)[[3]]` should not be `a`"

# check for warning, in the future if we properly support RAW then this will
# no longer produce a warning.  Really just looking for a valid STRSXP type.

`alike` behavior for objects of type "raw" is not well defined and may change in the future

Warning in alike(as.raw(integer(3)), as.raw(integer(3))) :
  `alike` behavior for objects of type "raw" is not well defined and may change in the future

alike(NULL, NULL, settings = vetr_settings(type.mode = 3))

Setting `type.mode` must be scalar integer between 0 and 2 (is 3).

Error in alike(NULL, NULL, settings = vetr_settings(type.mode = 3)) : 
  Setting `type.mode` must be scalar integer between 0 and 2 (is 3).

alike(NULL, NULL, settings = vetr_settings(attr.mode = letters))

Setting `attr.mode` must be integer-like (is character).

Error in alike(NULL, NULL, settings = vetr_settings(attr.mode = letters)) : 
  Setting `attr.mode` must be integer-like (is character).

alike(NULL, NULL, settings = vetr_settings(lang.mode = letters))

Setting `lang.mode` must be integer-like (is character).

Error in alike(NULL, NULL, settings = vetr_settings(lang.mode = letters)) : 
  Setting `lang.mode` must be integer-like (is character).