vet(INT.1 || NULL || LGL, "hello", format = "full")

For argument `current`, `"hello"` should be `NULL`, type "integer-like", or type "logical" (is "character")

[1] "For argument `current`, `\"hello\"` should be `NULL`, type \"integer-like\", or type \"logical\" (is \"character\")"

vet(INT.1 || NULL || LGL, "hello", format = "halloween")

`vet` usage error: argument `format` must be one of "text", "raw", "full"

Error in vet(INT.1 || NULL || LGL, "hello", format = "halloween") : 
  `vet` usage error: argument `format` must be one of "text", "raw", "full"

vet(INT.1 || NULL || LGL, "hello", format = 1:10)

`vet` usage error: argument `format` must be character(1L).

Error in vet(INT.1 || NULL || LGL, "hello", format = 1:10) : 
  `vet` usage error: argument `format` must be character(1L).

vet(INT.1 || NULL || LGL, "hello", format = "text", stop = TRUE)

Error in vet(INT.1 || NULL || LGL, "hello", format = "text", stop = TRUE) : 
  `"hello"` should be `NULL`, type "integer-like", or type "logical" (is "character")

vet(INT.1 || NULL || LGL, "hello", format = "text", stop = 1:3)

`vet` usage error: argument `stop` must be TRUE or FALSE.

Error in vet(INT.1 || NULL || LGL, "hello", format = "text", stop = 1:3) : 
  `vet` usage error: argument `stop` must be TRUE or FALSE.

# with a validator with message attached

`all_bw(0:5, 0, 1)` is not TRUE (is chr: "`2` at index 3 not in `[0,1]`")

`all.equal(1:6, 1:5)` is not TRUE (is chr: "Numeric: lengths (6, 5) differ")

[1] "`all.equal(1:6, 1:5)` is not TRUE (is chr: \"Numeric: lengths (6, 5) differ\")"

vet(quote(quote(a + b)), quote(x2 + x3))

# Note issue #18; not 100% sure this is correct, actually it should be, the
# validator expression is always substituted, and any symbols pointing to
# language are used as language.

`quote(x2 + x3)[[1]]` should be a call to `quote` (is a call to `+`)

[1] "`quote(x2 + x3)[[1]]` should be a call to `quote` (is a call to `+`)"

`quote(2 + x3)[[2]]` should be "symbol" (is "double")

[1] "`quote(2 + x3)[[2]]` should be \"symbol\" (is \"double\")"