`1` should be type "integer" (is "double")

[1] "`1` should be type \"integer\" (is \"double\")"

alike(1, 1L, settings = vetr_settings(type.mode = 1L))

alike(1, 1L, settings = vetr_settings(type.mode = 2L))

`1L` should be type "double" (is "integer")

[1] "`1L` should be type \"double\" (is \"integer\")"

`1:101 + 0` should be type "integer" (is "double")

[1] "`1:101 + 0` should be type \"integer\" (is \"double\")"

alike(1:101, 1:101 + 0, settings = vetr_settings(fuzzy.int.max.len = 200))

alike(1:101, 1:101 + 0, settings = vetr_settings(fuzzy.int.max.len = -1))

alike(list(a = 1:10), data.frame(a = 1:10))

alike(list(a = 1:10), data.frame(a = 1:10), settings = vetr_settings(attr.mode = 1L))

alike(list(a = 1:10), data.frame(a = 1:10), settings = vetr_settings(attr.mode = 2L))

`data.frame(a = 1:10)` should not have attribute "class"

[1] "`data.frame(a = 1:10)` should not have attribute \"class\""

call.a <- quote(fun(b = fun2(x, y), 1, 3))

call.b <- quote(fun(NULL, fun2(a, b), 1))

alike(call.a, call.b, settings = vetr_settings(env = emptyenv()))

# FALSE, function not defined in empty env

`call.b` should have argument `b` as first argument (has unnamed argument)

[1] "`call.b` should have argument `b` as first argument (has unnamed argument)"

alike(call.a, call.b, env = emptyenv(), settings = vetr_settings(env = environment()))

# TRUE, verify that settings takes precedence

alike(`&&`, function() NULL, settings = vetr_settings(type.mode = 1))

`function() NULL` should be type "special" (is "closure")

[1] "`function() NULL` should be type \"special\" (is \"closure\")"

`vet/vetr` usage error: argument `settings` must be a list or NULL (is character).

Error in alike(1, 2, settings = letters) : 
  `vet/vetr` usage error: argument `settings` must be a list or NULL (is character).

`vet/vetr` usage error: `settings` must be a list of length 16.

Error in alike(1, 2, settings = list()) : 
  `vet/vetr` usage error: `settings` must be a list of length 16.

alike(1, 2, settings = setNames(vector("list", 16), letters[1:16]))