`exp.2[[1]][[3]]` should be a call to `fun` (is "double")

[1] "`exp.2[[1]][[3]]` should be a call to `fun` (is \"double\")"

`exp.6[[2]][[3]]` should be "symbol" (is "double")

`quote(x)` should be `NULL` (is "symbol")

[1] "`quote(x)` should be `NULL` (is \"symbol\")"

# TRUE, NULL matches anything as language object

# FALSE, quoting NULL doesn't make it language

[1] "`c0` should be \"symbol\" (is \"language\")"

`quote(x)` should be a call to `fun` (is "symbol")

[1] "`quote(x)` should be a call to `fun` (is \"symbol\")"

`print` should have argument `digits` after argument `...`

[1] "`print` should have argument `digits` after argument `...`"

alike(fun, fun2, settings = vetr_settings(attr.mode = 2L))

[1] "`fun2` should have attribute \"srcref\""

alike(fun2, fun, settings = vetr_settings(attr.mode = 1L))

alike(fun2, fun, settings = vetr_settings(attr.mode = 2L))

`fun` should not have attribute "srcref"

[1] "`fun` should not have attribute \"srcref\""

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

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